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INTRODUZIONE 


SCOPI 

Negli ultimi anni si è avuta una grossa diffusione dei piccoli calcolatori, ciò 
ha portato alla creazione di molti programmi pratici. Molti altri se ne potranno 
creare, quando gli utilizzatori considereranno non solamente in termini di diverti¬ 
mento le reali possibilità della macchina in loro possesso. 1 programmi particolari 
non sono facilmente disponibili. Lo scopo di questo libro è di aiutare a trovarli. 
Tutti i programmi di questo libro hanno utili applicazioni sul computer. Oltre ai 
programmi sono inclusi i listing BASIC. Ponendo tali listing nel vostro computer 
esso sarà in grado di lavorare. L’utilità del libro sta nel fatto che essendo i 
programmi già pronti, esso è destinato a programmatori e non. Inoltre, permette 
un grande risparmio di tempo, tempo che potrà essere sfruttato in altro modo, il 
non programmatore avrà tempo per imparare a programmare mentre il program¬ 
matore avrà il tempo per scrivere nuovi programmi. 

Per usare questo libro non occorre essere un programmatore, è però impor¬ 
tante capire il succo dei programmi che userete. E al di fuori degli scopi del testo la 
spiegazione di dove, come, quando e perchè voi dovrete usare un determinato 
programma. Ciò non significa che voi dobbiate essere un ragioniere per usare il 
programma del reddito medio o un dirigente scientifico per usare l’algoritmo dei 
trasporti. Per ogni programma vi sono delle semplici regole e dei problemi pratici. 
Può accadere che vi serva un programma composto da più programmi, in tal caso 
dovrete sommare i programmi fra di loro. Per avere maggiori informazioni 
sull’argomento del programma potrete far ricorso alla sezione Riferimenti. 

Il testo ha, inoltre, un secondo scopo che è quello di mostrare, per mezzo di 
esempi, il largo campo di applicazione dei vari programmi. Spesso, l’uso del 
computer è stato ridotto al solo divertimento, poiché era una seccatura giungere a 
dei programmi che lo utilizzassero praticamente. 

Se nel libro non è presente il programma che vi serve, voi potrete progettarlo 
dopo aver studiato dei programmi simili che sono qui contenuti. Guardando i 
programmi del testo vi accorgerete che alcune tecniche di programmazione, o dei 
pezzi di programma, sono utilizzabili anche per il vostro lavoro. Per esempio, 
incorporata in alcuni di questi programmi c’è una funzione per arrotondare i 
calcoli aritmetici a cento, ed un sotto programma di pausa in corrispondenza del 
completamento di schermo. Potrete, inoltre, usare un intero programma come se 
fosse una parte di un programma più ampio e complesso. Alcuni dei programmi 
fanno riferimento ai programmi del libro “Alcuni comuni programmi in Basic” 
edito anch’esso dal Gruppo Editoriale Jackson. 


V 



Organizzazione 

I programmi di questo testo trovano la loro prima applicazione in queste aree 
specifiche: finanziaria, decisioni manageriali, statistica, matematica e scienze. 
L’ordine dato a questa classificazione è puramente arbitrario e non deriva dalla 
utilità dei vari programmi. L’etichetta data ad un programma non deriva da 
questioni reali, ma da dove esso viene usato. 

Ogni programma include una completa elaborazione in aggiunta alla sua 
compilazione. Ogni elaborazione inizia con una discussione del suo soggetto, le 
entrate richieste e l’uscite che si devono ottenere. Nei casi in cui vi siano limitazio¬ 
ni sugli algoritmi che il programma utilizza, o sull’applicabilità del programma, 
tali limitazioni sono descritte vicino al programma stesso. In molti programmi 
segue una sezione di note. In essa sono indicati dei possibili cambiamenti sul 
programma, tali che esso possa operare in modo leggermente diverso, questi 
cambiamenti vengono effettuati sostituendo alcuni dati. Queste sostituzioni pos¬ 
sono essere fatte in modo da rendere il programma più adatto ai vostri scopi. Le 
note danno anche una spiegazione di alcuni aspetti complessi o caratteristici di 
scrittura del programma stesso. Generalmente, forniscono gli aspetti tecnici di 
completamento dell’applicazione di un programma. 

Dopo questa parte esplicativa vi è un esempio dell’uso del programma. Dove 
ciò e possibile, l’esempio è calato in una situazione più o meno reale. Un esempio 
che esprime una situazione che può essere risolta con l’uso del programma è più 
istruttivo che una lista di dati da porre nel programma. Voi non dovrete esercitare 
la vostra immaginazione su questa situazione inventata, ma piuttosto, dovrete 
esercitarvi a visualizzare gli usi potenziali del programma. Gli esempi dimostrano 
come molti programmi possano servire per un discreto numero di problemi. Le 
risposte ai quesiti posti dall’esempio, sono date in forma discorsiva, o come parti 
inerenti il campione eseguito. Il campione eseguito mostra il dialogo che avviene fra 
l’utilizzatore e il computer quando il programma è usato per avere le risposte alle 
domande poste dall’esempio. Nel campione eseguito del problema posto dall’e¬ 
sempio compaiono gli ingressi introdotti dall’utilizzatore e le uscite fornite dal 
computer. Dovrete riuscire a stabilire come usare il programma nel caso dobbiate 
risolvere un problema simile a quelli proposti. 

Ogni esempio è seguito da problemi pratici. La loro utilizzazione dà una 
maggior familiarità con i vari modi di applicazione del programma. Generalmen¬ 
te per i problemi pratici vengono fornite solo le risposte senza il campione 
eseguito. 

Dopo i problemi pratici viene dato il listing completo del programma Basic. I 
listing sono documentati con linee di osservazione. Le osservazioni sono introdot¬ 
te per facilitare la comprensione delle operazioni compiute dal programma. Esse 
(che sono sempre designate con l’istruzione Basic REM) non sono essenziali per le 
operazioni del programma, ma servono per la sua comprensione. 

Infine, sono dati dei riferimenti per molti programmi. In questo modo 
potrete consultare tali libri, articoli ecc.. se vorrete saperne di più sulla materia 
trattata dal programma. 
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Compatibilità del Basic 


I programmi sono scritti in un Basic generale e non specifico per un dato 
computer. Il concetto di Basic generale è basato sull’esperienza del libro Alcuni 
comuni programmi in Basic, e sulla risposta dei lettori a questo libro. Gli autori del 
libro hanno provato collettivamente questi programmi usando varie versioni di 
Basic. Cioè Applesoft Basic, Atari Basic, Commodore Basic, CBasic, Digital 
Equipment Corporation’s (DEC) Basic-Plus, Radio Shack TRS-80 Basic, Texas 
Instruments Basic e Wang Laboratories Basic. E stata adottata una convenzione 
di programmazione che permette ai programmi di questo libro di essere usati 
senza cambiamenti per molte versioni di Basic. Ciò non è sempre possibile, poiché 
in alcune versioni di Basic le serie di variabili, le serie di funzioni e le serie di 
operatori sono trattate diversamente. Tuttavia, non possiamo anticipare tali 
problemi di compatibilità, essi verranno indicati nell’appendice dove verranno 
anche suggerite delle possibilità alternative. 

Nessuno di questi programmi richiede un grosso accumulo di informazioni - 
disco o nastro - per la conservazione dei dati. Quindi per i programmi qui riportati 
non vi sono problemi di accesso ai dati. Naturalmente dovrete accumulare i 
programmi su nastro o disco quando avrete trovato i modelli che vi servono, ma 
questa procedura è abbastanza semplice ed è descritta sul manuale del computer. 


Come usare questi programmi 

Segue una scaletta in cui è mostrato come vanno utilizzati i programmi. 

1. Leggere il programma e familiarizzarsi con i casi su cui questo programma 
lavora. Leggere i riferimenti per una miglior comprensione dell’argomento a cui il 
programma è destinato. Verificare se questo è il tipo di programma di cui avete 
bisogno. 

2. Porre il listing del programma nel vostro computer. Poiché le osservazioni 
(segnate con REM) non sono essenziali non occorre porle in macchina. Rispar¬ 
mierete così del tempo ed il programma occuperà meno spazio. Nel caso in cui 
abbiate apportato delle modifiche al programma è preferibile che includiate anche 
le osservazioni, poiché esse possono essere di aiuto nel programma. 

3. Controllate per le correzioni il listing del programma completo. Confron¬ 
tatelo linea per linea e carattere per carattere con il programma pubblicato. 
Correggete ogni discrepanza. 

4. Registrate il programma su nastro o disco. Provatelo in questo modo 
potrete usarlo facilmente nel caso in cui vi occorra. 

5. Eseguite l’esempio pubblicato. Se ogni cosa è stata fatta correttamente il 
risultato sarà simile a quello riportato sul testo. Se la vostra risposta è leggermente 
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diversa da quella del libro il vostro computer ha un livello di precisione diverso da 
quello da noi usato. 

6. Se la risposta è molto diversa, il vostro programma non è esatto (avete fatto 
qualche errore di messaggio), dovrete quindi controllarlo nuovamente. Come 
prima cosa controllate due o tre volte il vostro listing con quello pubblicato. Non 
trascurate l’importanza di questo confronto. Controllate se mancano linee di 
programma ed i numeri delle linee del programma. Controllate se è stata introdot¬ 
ta la giusta lettera o un numero, è facile confondere zero con O, uno con I, due con 
Z, cinque con S e la U con la V. 

Se non riscontrate nessun errore tipografico controllate l’Appendice. Con¬ 
trollate se per caso nel vostro programma compare qualche irregolarità del Basic. 
Se così è apportate i cambiamenti suggeriti e riprovate il programma. Ora il vostro 
programma dovrebbe essere esatto. Se non lo è, fate rivedere il programma a 
qualcun’altro. 

A volte altri occhi possono trovare errori che a voi sono sfuggiti. Provate a 
lasciare da parte il programma per un momento. Dopo un piccolo intervallo, 
possono saltar fuori errori che non si erano notati. 

C’è sempre la possibilità che il programma sia incompatibile col vostro Basic. 
Controllate la sintassi del programma del libro con quella del vostro Basic. Vi 
possono essere differenze leggere ma anche differenze marcate. L’esperienza, 
l’ingegno e la conoscenza del vostro Basic vi verranno in aiuto a questo punto. 

7. Come successivo test del programma eseguite un problema pratico. Con¬ 
frontate le risposte con quelle del libro. Esse devono essere simili, tuttavia alcune 
discrepanze non sono del tutto inusuali. 
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PREFAZIONE 


In questo libro sono raccolti vari programmi di interesse generale per rispon¬ 
dere alla continua richiesta di facili programmi pronti per l’uso. L’offerta di tali 
programmi non tiene il passo con la domanda degli utilizzatori aumentati sempre 
più di numero, per il prolificare dei micro personal e home computer venduti a 
basso costo. Questo aumento di popolazione fa sì che molte delle prime utilizza¬ 
zioni dei computer siano usate solo negli aspetti pratici del computing, o viste solo 
come mezzo di divertimento e ormai, superate. Molti programmi pratici sono ora 
possibili e si continuano a ricercare nuove utilizzazioni, dato che quelle possibili 
non risultano ancora sufficienti. Visto che i programmi esistenti sono difficilmen¬ 
te reperibili abbiamo raccolto in questo libro una serie di programmi relativamen¬ 
te corti che coprono un largo campo di applicazioni pratiche. 


RINGRAZIAMO 

Steven Cook, Martin Me Niff e Robert Thomson che hanno concepito, 
progettato e scritto molti di questi programmi, collettivamente li hanno sotto 
posti tutti a test e hanno preparato la scrittura finale e le liste di programma per la 
pubblicazione. 

Dr. Samuel H. Westerman che ha concepito progettato ed elaborato le liste 
iniziali di otto di questi programmi: Reddito medio, Interesse continuo composto, 
Scambio di deprezzamento, Ripartizione di quota, Partecipazione ai profitti dei 
contribuenti, Teoria della stima statistica. Statistica, Stima non influenzato di 
deviazione standard. Chi quadro, Divergenza tra previsione e dati, Interpolazione 
Newtoniana, Interpolazione Lagrangiana, Somma di potenze, Fattoriali, Con¬ 
versione di temperatura e Trasposizione musicale. Egli ci ha pure fornito del 
materiale di partenza per questi otto programmi. 

Richard E. Beckwith, ha concepito, progettato il codice di programma ed 
elaborato il programma Macchina svedese (Teoria delle code). 

George M. Blake ha suggerito i programmi Derivazione dell’interesse di 
obbligazioni, Valore corrente di un buono del tesoro. 
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REDDITO MEDIO 


Questo programma calcola la tassa sul reddito, usando il metodo che negli 
Stati Uniti prende il nome di reddito medio. Esso determina se un contribuente 
può utilizzare tale metodo, ed in caso positivo, mostra le entrate che servono per 
completare la scheda G. È basato sul formulario, sulle aliquote e sulle leggi delle 
tasse del 1979. E fatto per essere usato per molti anni, fino a che leggi, aliquote e 
formulari resteranno invariati. 

Per usare il programma dovete introdurre il nome del contribuente, l’anno 
tassabile, lo stato civile del contribuente in quell’anno (celibe, sposato e conviven¬ 
te, sposato separato, non sposato sostegno di famiglia, vedovo). Introducete il 
periodo di base del reddito, cioè, i quattro anni precedenti l’anno tassabile. Dal 
1977 in avanti, questa somma è data dalla linea 34 del formulario 1040 o della 
linea 11 del formulario 1040A (linea 10 del formulario 1040A nel 1977 e 1978)*. 
Quando il programma lo richiede dovrete introdurre anche il numero di esenzioni 
per ogni anno dal 1977 in avanti. Per ogni anno del periodo di base precedente al 
1977, introducete direttamente il reddito tassabile. Dovrete introdurre una figura 
di reddito (anche negativa) per ogni anno, ed il numero totale di esenzioni 
richieste ogni anno (quando richiesto), anche quando il contribuente non ha avuto 
un reddito netto o ha avuto un reddito tassabile negativo. 

Notiamo che nella scheda G la linea 3 non può essere minore di zero, ciò è 
stato ora rivisto, e quindi anche la linea 3 permette una figura negativa. Da questo 
fatto il programma trae un notevole vantaggio. Il programma tiene, invece, conto 
del fatto che la linea 6 non può essere negativa. 

Il programma vi chiede, inoltre, se avete altri redditi (redditi esterni) ed il 
reddito tassabile della scheda TC per l’anno tassabile. Esso determina quindi se 
potete usufruire del metodo del reddito medio. Se così è, mostra gli ammontari 
che servono per completare la scheda G (nel formulario del 1979). 

Note al programma 

Il programma compie tutte le operazioni approssimando al penny. Dato che 
alcuni preferiscono approssimare al dollaro vi suggeriamo le sostituzioni da 
apportare al programma per far si che esso operi in questo modo. Dovrete 
sostituire la linea 40 come mostrato in seguito, ed inoltre ogni volta che il 
programma vi richiede l’ammontare in dollari dovrete introdurre tale ammontare 
esclusivamente in dollari. 

39 REM ARROTONDA A DOLLARI INTERI 

40 DEF FNR (X) = INT (X-F0.5) 

La scheda G del 1979 riprodotta in seguito indica con A () gli elementi 


•Nota: Formulari utilizzati in USA per la DICHIARAZIONE dei redditi. 
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1) Introduci il totale della: 

Linea 34 - Form 1040 (1977 e 1978) 

Linea 10 - Form 1040 A (1977 e 1978) .... 

2) Moltiplica per $ 750 il numero di esenzioni 

del 1977 e 1978 . 

3) Reddito tassabile (sottrai la linea 2 dalla 1) 

Se è <0 Introduci zero. 

4 ) Reddito estero fuori dagli U S A. o negli 

U.S.A. escluso sotto la sez. 911 e 931_ 

5 ) Stato civile (Introduci nelle colonne (c) e 
(d) Se: 2 o5 introduci $ 3200 

1o4introduci $ 2200 
3 introduci $ 1600 

6) Reddito Periodo Base (somma le linee 3.4 e 5) 


Computo del Reddito Medio 



7) Reddito tassabile per il 1979 Scheda TC. Parte I. linea 3 


A ( 14) 


A(24) 


A(26) . 


8 Totali soggetti a penalità sotto la sezione 72 (m) (5). 8 A(20) 

9)Sottrati la linea 8 dalla 7 .| 9 | A(27) 

10 Reddito comunitario in eccesso . 


12) Somma le colonne da (a) a (d) sulla linea 6 . 

13 ) Introduci il 30% della linea 12. 

14 ) Reddito Medio (sottrai la linea 13 dalla 11).. 


112 I A(29) 



anno 1975 


A ( 5 ) 


A (9) 


A( 13) 


A(19) 


A ( 1 5 ) 


A<25) 

11 

A(28) 

B 

A(30) 

fl 

A(31 ) 


Se la linea 14 è $ 3000 o meno, non completare II resto del Formularlo. 
NON SEI ABILITATO PER IL REDDITO MEDIO 


15)Totale della linea 13. 

16 20% della linea 14. 

17 Totale (somma le linee 15 e 16). 

18 Totale Linea 10 . 

19) Totale (somma le linee 17 e 18). 

20) Tassa sul totale della linea 19 (vedi cauzione sottostante) . 

21) Tassa sul totale della linea 17 (vedi cauzione). 21 A(37) 

22) Tassa sul totale della linea 15 (vedi cauzione). "Ì2 a (38 ) 

23) Sottrai la linea 22 dalla 21 . A(39) 

24 ) Moltiplica il totale della linea 23 per 4. 24 A(40) 

NOTA: Se non ci sono entrate sulla linea 8. salta le linee 25-26-27 e va alla linea 28 

25) Tassa sulla linea 7 (vedi cauzione).I 25 I A(41 ) 

28 ) Tassa sulla linea 9 (Vedi cauzione).| 2 é] a (42) \ ~ 



27 ) Sottrai la linea 26 dalla 25.| 27 | A(43) 

28) Tassa (somma le linee 20. 24 e 27). Introducila qui e sulla scheda TC (FORM 1040), parte I. linea 4. 

Controlla la scheda G. 


Ibi 


CAUZIONE: Usa le istruzioni di quota delle schede X. Y e Z del FORM 1040 per calcolare la tassa, sulle linee 20, 21.22,25 e 26. Non usare 
tavole di tassa 


4 












































































corrispondenti alle linee e alle colonne della scheda G con A (1) si indica l’anno 
tassabile nell’angolo in alto a destra, con A(44) si indica l’ammontare della tassa 
calcolato. Notare che le variabili A(4), A(5), A(8), A(9) sono contenute in caselle 
ombreggiate (si intende che esse restino vuote nel 1979). Per il 1979 il programma 
ne tiene conto uguagliandole tutte a zero. Al passare degli anni l’ombreggiatura si 
sposterà alla destra ed in tali caselle andranno segnate le relative entrate. Per 
esempio nel 1980 le caselle nelle linee 1 e 2, colonna C non saranno ombreggiate ed 
A(4) e A(8) saranno attivi nel programma per le tasse dell’80. 

Nello stesso modo l’ombreggiatura sulla linea 5 andrà ad occupare le colonne 
C e D. Quindi le variabili A(14) ed A(15) diventeranno inattive nel 1980 e 1981. 


Esemplo 


Uriah Heep è sposato ed ha un dipendente. La linea 34 del suo formulario 
1040 per il 1978 e per il 1979 mostra: $ 16.000 e $ 14.000. Il suo reddito tassabile per 
il 1976 e per il 1975 era di $ 12.000 e $ 10.000. Egli non ha redditi esterni, non ha 
totali soggetti a penalità che rientrino nel codice sezione 72 (m) (5), e non ha 
reddito comunitario in eccesso. Il suo reddito tassabile per il 1979 è di $ 52.500. 
Come deve usare il programma per compilare la sua scheda G per il 1979? 


Risposta: 

REDDITO MEDIO 

IL NOME BEL CONTRIBUENTE E' 
URI AH HEEP 

ANNO TOCCHEILE 
!??? 

PER LO STATO CIVILE DIGITA— 
--1 SE CELIBE 
—2 SE SPOSATO.'CONVIVENTE 
—3 SE SPOSATO.'SEPARATO 
—4 SE CAPO-FAMIGLIA 
—5 SE VEDOVO.'A 


INTRODUCI LA FORMA DI REDDITO CORRISPONDENTE 
ALLA LINEA 34 DEL MODELLO 1040 0 SUL MODELLO 
1040A, CORRISPONDENTE ALLA LINEA 11 <1973) 

0 ALLA LINER 10 <1977-1378). 

PER L'ANNO 1978 
? 16000 


QUANTE ESENZIONI DICHIARATE QUELL'ANNO 


INTRODUCI LA FORMA DI REDDITO CORRISPONDENTE 
ALLA LINEA 34 DEL MODELLO 1040 0 SUL MODELLO 
1040A, CORRISPONDENTE ALLA LINEA 11 <1979) 

0 ALLA LINEA IO <1977-1978). 

-•ER L'ANNO 1977 
? 14000 


QUANTE ESENZIONI DICHIARATE QUELL'ANNO 
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INTRODUCI IL REDDITO TASSABILE PER L'ANNO 1976 

? 12000 

INTRODUCI IL REDDITO TASSABILE PER L'ANNO 1375 
:• 10900 

LA MAGGIOR PARTE DEI CONTRIBUENTI NON HA ESCLUSO 
I REDDITI ESTERNI, TOTALI PENALIZZATI 
SOTTO IL CODICE SE2.72<M>'.5>, 0 L'ECCESSO 
DI REDDITO COMUNITARIO. AVETE QUALCUNA 
DI QUESTE VOCI? <S,'N> 

- N 

INTRODUCI IL REDDITO TASSABILE PER L'ANNO 1373 
? 52509 


PER URIAH HEEP, 1979 L'IMPOSTA 
UTILIZZANDO IL SISTEMA DEL REDDITO MEDIO 
RISULTA DI 11672.2 

IL SEGUENTE MODULO RAPPRESENTA 
IL MODULO 0 COMPILATO UTILIZZANDO 
IL FORMATO 1979 

*************** MODULO 0 *************** 


URIAH HEER — 1973 

STATO CIVILE SPOSATO,'CONVIVENTE 


DIGITARE 

: 'C' PER 

CONTINUARE 

? C 

REDDITO 

ERSE DEL 

PERIODO E 

CORREZION 

LINEA 1 

- 

1978 

* 15000 


1377 

t 14000 



1376 

t 0 



1975 

r 0 


LINEA 2 

- 

1978 

t 2250 


1?77 

T 2250 



1376 

f 0 



1975 

I 0 


LINEA 3 

- 

197S 

t 13750 


*. *77 

t 11750 



:?76 

! 12000 



1375 

f 10000 


LINEA 4 

- 

1978 

t 0 


1377 

t 0 



1376 

t 0 



1375 

r 0 


LINEA 5 

- 

1976 

t 3200 


1375 

t 3200 


LINEA 6 

- 

1978 

» 13750 


1377 

* 1175© 



1376 

t 15200 



1375 

t 13200 



DIGITARE 'C' PER CONTINUARE? C 


CALCOLO DEL REDDITO MEDIO 
Z CALCOLO DELL'IMPOSTA 


LINEA 

7 

t 

52500 

LINEA 

3 

t 

0 

LINEA 

9 

t 

52500 

LINEA 

10 

t 

0 

LINEA 

11 

t 

52500 

-INE A 

12 

t 

53900 

LINEA 

13 

t 

16170 

LINEA 

14 

t 

36330 

LINEA 

15 

t 

16170 

LINEA 

16 

t 

7266 

LINEA 

17 

t 

23436 

DIGITARE 

'C' 

PER CONTINUARE? C 
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INEA 18 
LINEA 1? 
_INEfi 20 
LINER 21 

* inea 22 

LINEA 23 
LINER 24 
LINER 25 
LINER 26 
_ INEfì 27 
LINER 28 


g 

23436 

4173.08 

4179.08 

■-•295. g 

1373!23 
’493.12 


r 
r 

t 0" 

r 0 

t 3 

t 11672.2 

i********* FINE DEL MODULO G ********** 

TtffilTAPE ' r ' PER CONTINUARE CON IL PROSSIMO CONTRIBUENTE: X 


Listlng del programma 


I REM REDDITO MEDIO .’.V.Y 

3 REM RO CONTIENE IL TOTALE DEI MODULI G 

9 REM CO E RO SONO PER LA LISTA BELLE ALIQUOTE 

10 DI MA < 4 5 >, C < 4,16 >, R < 4,15 5 

19 F;EM LEGGE LA LISTA DELLE ALIQUOTE 

20 GOSUB69O0 

39 REM FUNZIONE DI ARROTONDAMENTO 

40 DEF FNR00 = 1 NT(100*;!+. 5VI00 

49 REM LIBERA IL MODULO 0 PER IL PROSSIMO CONTRIBUENTE 

50 F0RI=iT015 
50 A<I>=9 

78 MENTI 

79 REM LIBERA LO SCHERMO 
30 FRI NT "13" 

35 PRINT"REDDITO MEDIO" 

90 PRINT"IL NOME DEL CONTRIBUENTE E'" 

100 IMPUTO* 

105 PRINT 

110 PRINT"ANNO TASSABILE ” 

120 INPUTA<11 
125 PRINT 

130 PRINT "PER LO STATO CIVILE DIGITA— " 

140 PRINT"—1 SE CELIBE" 

150 PRINT"—2 3E SPOSATO.‘CONVIVENTE" 

160 PRINT"— 3 SE SPOSATO.'SEPARATO" 

170 PRINT"—4 SE CAPO-FAMIGLIA" 

ISO PRINT"—5 SE VEDOVO/A" 

190 INPUTF 
20O PRINT 

256 REM 

257 REM **** REDDITO BASE DEL PERIODO E CORREZIONI **** 

25S REM 

268 REM INTRODUCI IL REDDITO TOTALE— 

269 REM LA PROCEDURA E' DIVERSA PRIMA DEL 1977 
278 F0RJ=1TO4 

238 IFA <1)-J31976THEN320 

290 PRINT"INTRODUCI IL REDDITO TASSABILE PER L'ANNO";AO-J 
300 INPUT A<J+9> 

305 PRINT 
310 00T0750 

320 FRINT"INTRODUCI LA FORMA DI REDDITO CORRISPONDENTE" 

330 PRINT “ALLA LINEA 34 DEL MODELLO 1040 0 SUL MODELLO" 

340 PRINTM040A, CORRISPONDENTE ALLA LINEA 11 0979)" 
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350 PRINT'C ALLA LINEA 10 d977-1978>." 

3E0 FRI NT “PER L'ANNO"; Ad W 
370 INPUT A<J+l) 

3S0 PRINT 

470 PRINT"QUANTE ESENZIONI DICHIARATE QUELL'ANNO" 

480 INPUT E 
435 PRINT 

438 REM LE ESENZIONI SONO DI S 1.000 DAL 1070 IN POI 

480 REM DI t 75P "IR OLI ANNI PRECEDENTI 

400 A<J+5)=1000*B 

508 IFA< 1 )-JMO7STHEN740 

518 A<J+5>=750#B 

740 A<J+9)=A<J+l)-A<J+5> 

750 NEXTJ 

366 REM 5. DALLO STATO CIVILE, DETERMINARE IL TOTALE DI CASELLA 0 PER 
867 REM 1075 E 1976 

363 REM SE L'ANNO TASSABILE E' IL 1981 0 UN ANNO SUCCESSIVO, IGNORARE 

369 REM IL TOTALE DEL RIQUADRO 0 

370 IFA<1)31980THEH1O10 

390 OHFGOTO900,920,040,900,920 
399 REM CELIBE 0 CAPOFAMIGLIA 
900 A<15>=2200 
910 GOTO960 

919 REM SPOSATO,'CONVIVENTE 0 VEDOVO,'A 

920 A <15 > =3200 
930 GGTO960 

939 REM SPOSATO/SEPARATO 

940 Ad5)=1600 

949 REM 1975 UGUALE AL 1976 

958 REM SE L'ANNO TASSABILE E' IL 1980, IGNORA PER IL 1975 

959 REM IL TOTALE DEL RIQUADRO G 

960 IFfld >=1980THEN1010 
970 Ad4)=A(15> 

1010 PRINT"LA MAGGIOR PARTE DEI CONTRIBUENTI NON HA ESCLUSO" 

1020 PRINT"I REDDITI ESTERNI, TOTALI PENALIZZATI" 

1030 PRINT"SOTTO IL CODICE SEZ.72<M>C5>, 0 L'ECCESSO" 

1040 PRINT"DI REDDITO COMUNITARIO. AVETE QUALCUNA" 

1050 PRINT "DI QUESTE VOCI? <3, TU" 

1060 INPUT Uf 

1070 IFW*="N"THEN1200 


1030 PRINFREDDITI ESTERNI ESCLUSI— ANNO";A< 1 )-l 
1890 INPUT AC16> 

1100 PRINT" IDEM—ANNO";A(1 )-2 

1110 INPUT A<17) 

1120 PRINT" IDEM—ANNO "IRCI)-3 

1130 INPUT A<18) 

1140 PRINT" IDEM—ANNO";Ad>-4 

1150 INPUT A<19) 

1155 PRINT 

1160 PRINT"INTRODUCI I TOTALI PENALIZZATI, SEZ. 

1170 INPUT A<20> 

1130 FRINT"INTRODUCI I REDDITI COMUNITARI IN ECCESSO" 

1190 INPUT A<21> 

1195 PRINT 

1199 REM AGGIUNGI IL REDDITO BASE DEL PERIODO COLONNE A-D 

1200 A(22)=Ad0)+A(16) 


1210 A<23)=A(11>+A<17> 

1220 A(24)=Ad2>+AdS)+Ad4> 

1230 A<25)=A<13)+A<19)+A<15) 

1238 REM IL REDDITO BASE DEL PERIODO NON PUÒ' ESSERE NEGATIVO 

1239 REM IN NESSUN ANNO 

1240 F0RI=22T025 
1250 IFA<I»0THEN1280 
1270 A(I)=0 

1280 NEXTI 

1286 REM 

1287 REM **** CALCOLO DEL REDDITO MEDIO **** 

1288 REM 

1289 REM 7. REDDITO TASSABILE DAL MODULO TC 

1290 PRINT "INTRODUCI IL REDDITO TASSABILE PER L'ANNO"; Ad) 
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INPUT A<26> 

PRINT 

REM 9. SOTTRAI LA LINEA 8 PALLA LINEA 7 
A<2?>=A<26)-A<20> 

REM 10. L'ECCESSO DI REDDITO COMUNITARIO E A<21> 

REM 11. REDDITO TASSABILE CORRETTO 
A<23)=A<27>-A<21> 

REM LA LINEA 11 NON PUÒ' ESSERE NEGATIVA 

IFA < 28)0 =0THEN1360 

A(28?=0 

REM 12. REDDITO TOTALE DEL PERIODO BASE 
A<29)=A<22)+fl(23)+A<24>+A<25) 

REM 13. 30?i DI LINEA 12 
A<30)=FNR<R<29>*.3> 

REM 14. REDDITO MEDIO 
A<31)=A<28>-A<30> 

IFA<31>0=3000THEH1458 
PRINTZF 

PRIHT"NON SI QUALIFICA PER IL METODO DEL REDDITO MEDIO” 
PRINT"REDDITO MEDIO FER ";A<1> 

PRINT"E' DI T”;A<31>;"- CHE E UGUALE 0 MENO DI 3000 f." 
GOTO2170 

REM 15. TOTALE DALLA RIGA 13 

A(32)=A(30> 

REM 16. 20?; DI LINEA 14 
A<33>=FHR<A<31)*.2> 

REM 17. TOTALE <ADDIZIONA LE LINEE 15 E 16) 

A<34)=A<32)+A<33> 

REM 18. REDDITO COMUNITARIO IN ECCESSO E' AC21) 

REM 19. TOTALE'ADDIZIONA LE LINEE 17 E 13) 
A(35)=A<34)+A<21> 

REM 20. QUOTA DELLE TASSE SULLA LINEA 19 
S=A<35> 

GOSUB6O00 

A(36)=T 

REM 21. QUOTA DELLE TASSE SULLA LINEA 17 
S=R<34) 

GOSUB6000 

A<37)=T 

REM 22. QUOTA DELLE TASSE SULLA LINEA 15 
S=AC32) 

GOSUB6000 

A(38)=T 

REM SOTTRARRE LA LINEA 22 BALLA LINEA 21 
SK 33 ) =h ( 37)-fì ( 38 ) 

RÈli’24. MOLTIPLICARE PER 4 IL TOTALE DELLA LINEA 23 
A<40>=4#R<39> 

REM -SE NON VI E' SANZIONE FECUNIARIA ALLA SEZ. 72<M><3> 
REM -SALTA ALLA LINEA 28 
IFA <20)=0THEN1690 

REM 25. TOTALE DELLE TASSE SULLA LINEA 7 
S=A<26> 

GOSUB600O 
A<41 >=T 

REM 26. TOTALE DELLE TASSE SULLA LINEA ? 

3=A<27> 

3CSUB60O0 

A<42)=T 

REM 27. SOTTRARRE LA LINEA 26 DALLA 25 
A<43>=A<41?~A<42) 

REM 28. TASSE 'ADDIZIONA LE LINEE 20..24 E 2. ) 

A(44)=A<36> <-A<40)+fl<43) 

REM 

REM **** STAMPA MODULO G #*** 

REM 

PRI NT "PER Z$; A<1); "L'I MPOSTA ” 

PRINT"UTILIZZANDO IL SISTEMA DEL REDDITO MEDIo 
PRINT"RISULTA DI";R<44) 

PRINT 

PRINT"IL SEGUENTE MODULO RAPPRESFNTA" 
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1740 PRINT"IL MODULO G COMPILATO UTILIZZANDO" 

1745 F'RIUT" IL FORMATO 1370" 

1750 PRINT 

1755 PRINT"**************# MODULO 0 #*#*###********" 

1760 PRINTZ4; '' —“,A<i: 

1770 PRINT"5TAT0 CIVILE' 

1730 CNFGOTG1730,1310,1330,ISSO,1370 
1730 PRINT"CELIDE” 

1300 G0TO18S0 

1310 PRINT"SPOSATO/CCNVIVENTE“ 

1320 GOTO1830 

1330 PRINT"SPOSATO,'SEPARATO" 

1340 GOTO1330 

ISSO PRINT"CELIBE CAPOFAMIGLIA" 

ISSO GOTOISSO 
1370 PRINT "VEDOVO. 'A" 

ISSO PRINT 

1333 REM ATTENDERE IL TERMINE DELL'OPERAZIONE PER CONTINUARE 
1330 GCSUB5S0O 

1395 PRINT"REDDITO DASE DEL PERIODO E CORREZIONI" 

1333 REM STAMPA LE LINEE 1,2 E 3 
1300 FORI=27010STEP4 
1310 GOSUE5700 
1315 MENTI 

1313 REM STAMPA LA LINEA 4 
1320 I=1S 
1330 OO3UE5700 

1333 REM STAMPA LA LINEA 5 SE E' APPLICABILE 

1340 PRINT"LIMEA 5 - 

1350 IFA<14)=0THEN1370 

1360 PRINT,Aa>-3," 4"A<14> 

1370 I FA < 15 ; =OTHEN 1330 
1330 PRINT,A<l>-4;" 4“A<15> 

1333 REM STAMPA LA LINEA 3 
1330 1=22 
2000 GO3UE5700 
.2305 PRINT 

2003 REM ATTENDERE IL TERMINE DELL'OPERAZIONE PER CONTINUARE 
2010 G0SUE5S00 
2015 PRINT 

2020 PRINT" CALCOLO DEL REDDITO MEDIO" 

2030 PRINT" E CALCOLO DELL'IMPOSTA" 

2040 PRINT"LINEA 7 4";A<26> 

2050 PRINT"LINEA 3 f",A<20> 

206O PR I/4T "LI NE A 3 #";A<27> 

2070 F-R INI "LINEA 10 4“;A<2i> 

2030 FGRJf11T017 

2030 PRIHT"LINEA";J;"- T";A<J+S7> 

2100 NENTJ '■ 

2103 REM ATTENDERE IL TERMINE DELL'OPERAZIONE PER CONTINUARE 
2110 GO3UB530O 

2120 PRINT"LINEA 13 4“;A<21> 

2130 FORJ=13T023 

2140 PRINT"LINEA“1J;“ 4"; ACJ+16> 

2150 NENTJ 

2160 PRINT”**####**## FINE DEL MODULO G ****######" 

2153 REM ATTENDERE PRIMA DI CANCELLARE LO SCHERMO PER 
2163 REM IL PROSSIMO CONTRIBUENTE 

2170 PRINT"BIGITARE 'C' PER CONTINUARE CON IL PROSSIMO CONTRIBUENTE" 

2130 INPUT W4 

2130 IFH#="C" THE!,'50 

2000 END 

3001 PRIHT#4 CL0SE4 REM DA CANCELLARE 
5537 REM 

5633 REM *#* SOTTOPROGRAMMA DI STAMPA DELLE LINEE 1,2,3,4 0 6 
5633 REM 

5700 PRINT "LINEA" ; INT( (I -2>,'4>+l ; " - 
5710 F0RJ=0T03 

5720 PRINT,A<l>-J-1": 4";A<2fJ> 

5730 NENTJ 
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5740 RETURN 

5795 REM 

5796 REM *** 30TT0FROORAMMA DI ATTESA DEL TERMINE DELL'OPERAZIONE 

5797 REM PER CONTINUARE FINCHE" L'INTERO MODULO G 

5798 REM NON SI ADATTERÒ' ALLO SCHERMO *** 

5799 REM 

5380 PRINT"DIGITARE "C" PER CONTINUARE"; 

5310 INPUT M* 

5320 RETURN 
^994 REM 

5995 REM *#* SOTTOPROGRAMMA PER CALCOLARE L'IMPOSTA SUL TOTALE S *** 

5996 REM 

5999 REM INIZIALIZZA L'IMPOSTA A 8 

6088 T=0 

6082 REM I CELIBI HANNO 16 CASELLE, TUTTI GLI ALTRI NE HANNO 15 

6003 K=15 

6004 IFF: 1THEN6010 

6005 K=16 

6009 REM DETERMINA SE USARE IL MODULO X, V 0 Z 

6010 I=F 

6819 REM VEDOVO.'A E SPOSATO/CONVIVENTE 
6020 IFFC5THEH6040 
6030 1=2 

6839 REM INIZIA CON IL TOTALE DEL RIQUADRO 0 
5048 J=1 

6049 REM IL REDDITO E' C= DEL TOTALE DTEL RIQUADRO 0 ? 

6050 IFS<=C <I,J)THEN6130 

6359 REM IL REDDITO E' ' DEL MASSIMO PREVISTO PER QUESTO RIQUADRO 
6060 IFS3 C ' I, J «• 1 > THEN6O90 

5863 REM TROVARE L'IMPOSTA MASSIMA DEL RIQUADRO — 

6069 REM —IMPOSTA CORRISPONDENTE AL REDDITO 

6070 T=T+<S-C<2, J>>*R<I, T).'100 
6030 OOTO6130 

6089 REM CUMULARE LE IMPOSTE A PARTIRE DA QUESTO RIQUADRO 
6890 T=T+<C1I, J+l > -C< 2, J) )#R< I, J.V100 

5099 REM PASSARE AL RIQUADRO SUCCESSIVO 

6108 J=J+1 

SUO Ir JCKTHEN6060 

6119 REM IMPOSTA CORRISPONDENTE AL REDDITO ALL'ALIQUOTA PIU' ALTA 

6120 T=T+<G-C;i,J:'>*R(I,J.V188 

5129 REM ARROTONDARE LA IMPOSTA TOTALE 

5130 T=FNR(T> 

S140 RETURN 
SS97 REM 

5393 REM *** SOTTOPROGRAMMA PER LA LETTURA DELLE ALIQUOTE D'IMPOSTA *** 
5393 REM 
6980 RESTORE 

5909 REM PRIMA IL MODULO li 

5910 F0RJ=1TG16 

5920 READR'l,J),C<1, J) 

5930 NEJ'T t 

5939 REM POI I MODULI V « Z 
6948 F0RI=2TO4 
5950 F0RJ=1TO15 
5968 READR<I,J),C<I,J> 

5970 NENTJ 
5980 MENTI 
5935 RETURN 

5990 REM 

5991 REM ***** ALIQUOTE D'IMPOSTA PER I MODULI X,V Si Z PER IL 1979 ***** 

5992 REM 

5993 REM PER OGNUNA DELLE TAVOLE SEGUENTI, OTTENERE LE ALIQUOTE 

5994 REM E ELIMINARE LE COPPIE DI DATI DALLE DUE COLONNE PIU' A 
6995 REM A DESTRA DEL MODULO OPPORTUNO 

5996 REM 

6997 REM-MODULO !!- 

5998 REM 

7000 DATA14,2300,16,3400,13,4400,19,6500,21,3500 
7085 DATA24,10800,26,12900,30,15000,34,13200 
7010 DATA39,23500,44,28800,49,34100,55,41500 
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7020 DATA63,55300,68,31800,70,108300 
7027 REM 

7023 REM -MODULO V <CONVIVENTE/VEDOVO/ft>- 

702? REM 

703O DATA14,3400,16,5500.-13,7600,21,11900,24,15000,23 
7040 DATA20200,32,24600,37,29900,43,35200,49.45800,54 
7050 BATA60O00,59,85600,64,109400,63,162400,70,215400 
7057 REM 

7053 REM -MODULO V (SEPARATO)- 

7059 REM 

7060 DATAI4,1700,16,2750,13,3300,21,5950,24,8000,28,10100 
7078 DATA32,12300,37,14950,43,17600,43,22900,54,30800 
7080 DATA59,42800,64,54700,68,31208,78,107780 

7037 REM 

7088 REM-MODULO 2- 

7839 REM 

7090 DATA14,2300,16,4480,18,6500,22,8700,24,11888,26,15080 
7180 DATASI,1820O,36,23500,42,28800,46,34108,54,44780,59 
7110 DATA606O0,63,81800,63,108300,70,161300 
9999 EMD 


Bibliografia 

U.S. Internai Revenue Service Code, Sections 1301-1305 
U.S. Public Law 91-172, Section 311 (b) amending Internai Revenue Code 
Section 1302. 

U.S. Treasury Department, Internai Revenue Service. Income Averaging, pubbli¬ 
cazione numero 506. 

U.S. Treasury Department, Internai Revenue Service. Regulations, Sections 
1.1301-0 a 1304-6 in special modo l’ultima sentenza del 1.1302-02 (b) (1). 
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VALORE CORRENTE 
DI UN BUONO DEL TESORO 


I buoni del tesoro differiscono dagli altri investimenti, poiché sono acquistati 
e venduti a valore scontato rispetto al loro valore nominale. La quota varia man 
mano che si avvicina la data di maturazione. Lo sconto è calcolato considerando 
l’anno di 360 giorni, la percentuale annuale, o prodotto, è calcolata usando l’anno 
di 365-366 GIORNI. 

Per usare questo programma, dovete introdurre il valore nominale del buono 
del tesoro, le date di emissione e di maturazione in GIORNO, MESE, ANNO, 
usando una o due cifre per ogni valore (per essere sicuri separate ogni valore con 
una barra). Quindi introducete la data del giorno in cui volete calcolare il valore 
del buono, e il prezzo dell’offerta corrente. Il programma fornirà il valore corrente 
come una quota in lire. 


Esempio 


Un buono del tesoro di $ 10.000, venduto il 10/1/80, matura il 10/4/80. Al 
17/1/80 la sua quotazione è del 12,09%. Qual’è il valore del buono? 

Risposta: Il suo valore è $ 9.717,90. 


VALORE CORRENTE- PI UN BUONO BEL TESORO 

VALORE NOMINALE <*.>? 13000 
DATA EMISSIONE IGG.MN, Aft>? 10 < 1 , 30 
DATA MATURAZIONE IGO,MM,Afi>? 10 , 4 , SO 
BOTA ODIERNA 0G,MM>AA>? 17 1 , SO 

PREZZO CORRENTE '”?? 12.09 

VALORE CORRENTE = t. 9717.9 

VUOI RIUTILIZZARE QUESTO PROGRAMMA CON NUOVI DATI IS/tO 
OH 


Problemi pratici 


1. Un buono annuale emesso il 16/2/80, ha un valore nominale di $ 50.000, 
esso è acquistato il 10/4/80 al 7,35%. Quale è il prezzo di vendita? 


Risposta: Il buono è venduto per $ 46.815,00 
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2. Diego acquista un buono a $ 1.000.000,00 il 25/1/80, il buono matura al 
25/7/80. Il 10/4/80 l’offerta per questa emissione è del 15,54%. In quel giorno a 
quanto può essere venduto il buono? 

Risposta: Il buono ha un valore di $ 954.243,33 


Listlng del programma 

1-3 PRINT "VALORE CORRENTE ZI UN SUONO BEL TESORO" 

CO DEE F NA < !?.' = I NT ' : :*1 OC *. 5 > .'100 

- 0 pp » l j -r 

-■? print -valore nominale :t. cu¬ 
ro INPUT ? 

60 FRIUT “DATA EMISSIONE <CG,MM,AA>“; 

73 INPUT D,M,V 
JGSUB J40 

:<■ REM — ::s = NUMERO assoluto di giorni palla ERTA IMMAGINARIA 
100 REM — 00/00. '00 ALLA PATA EI EMISSIONE 

Ii0 "3=A4 

ICO -RI,NT "ERTA MATURAZIONE :GC,MM,AA)"; 

ICO INPUT 

I 4 |T% rtjg 

158 REM --i:4'= NUMERO TOTALE PI GIORNI NEL PERIODO 
.i>0 4=ABSO'3-A4< 

ITO "RINT "DATA ODIERNA <00,MK,AA)"; 

ISO INPUT P,M,V 
ISO OOSUD 340 

eoe REM — 'IO = GIORNI TRASCORSI PALLA DATA DI EMISSIONE AD OGGI 
CIO /3=ABS</3-A4> 

CCO PRINT "PREZZO COPRENTE OI>"; 

ZOO INPUT D 

C40 REM — N44 = NUMERO GIORNI MANCANTI ALLA MATURAZIONE 
eoo ■:4=ii4-;:3 
CÒO r'R I NT 

ero PRINT "VALORE CORRENTE = t. ". PNA<P-s'<P/lE4>#;D*Ci4/360)*108)>> 

CSO PRINT 

C90 PRINT "VUOI RIUTILIZZARE QUESTO PROGRAMMA CON NUOVI DATI <S/N> 

300 INPUT ZX 
HO IF Zt=“S" THEN 30 
3CO IF ZT="N" THEN 450 
330 GOTO CSO 

340 REM — SOTTOFROGRAMMA PER DETERMINARE IL NUMERO DI GIORNI FRA 

350 REM — UNA DATA IMMAGINARIA O3/OO/O0 E GG/MM/AA USANDO 365/366 GIORNI. 

360 REM — ACCONTO PAGABILE t, ACCONTO RICEVIBILE s'WANG), P. 

370 RESTORE 

CSO DATA 0,3,3,6,5,11,13,16,19,21,24,26 
390 FOR 11=1 TO M 
400 READ A4 
41G NE/T II 

4C0 A4=A4+V4365+INT<V/4>+l* <M-1>#28*B 
430 IF INT<V. ’4>=Y/4 AND MC3 THEN A4=A4-1 
440 RETURN 
450 END 


Bibliografia 


U.S. Department of Treasury. Information about Treasury Bills Soldat Originai 
Issue, Da PD 800-D (riv. Giugno 1978). 

U.S. Federai Reserve. Marketable Seeurities of thè United States Government - 
U.S. Treasury Bills, Notes, and Bonds, circolare No.LLM 185. 
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CALCOLO DELL’INTERESSE 
DI OBBLIGAZIONE 


Questo programma calcola l’interesse di una obbligazione. Il programma 
esegue i suoi calcoli utilizzando il metodo dell’anno intero, o metodo dei 365-366 
giorni, volendo si può utilizzare il metodo dei 360 giorni (questo metodo è usato 
da alcune agenzie). In alcuni casi l’obbligazione viene emessa dopo che il primo 
periodo è iniziato. Dato che ciò diminuisce il valore del primo coupon di paga¬ 
mento alcune emissioni preferiscono conglobare la somma corrispondente a 
questo coupon nel secondo periodo. In questi casi dovrete rispondere “Y”, che 
sta per si, quando il programma chiederà se il coupon include un primo periodo 
lungo, ed introdurre i dati addizionali richiesti. 

Per usare il programma, selezionate il metodo annuale che desiderate usare, 
quindi introducete la quota del coupon ed il numero di coupon per anno. Se questi 
hanno un primo periodo lungo, introducete “ Y” e la data in cui ha inizio il primo 
periodo, la data in cui fu acquistata l’obbligazione e la data in cui il primo coupon 
doveva essere normalmente pagato se esso non fosse stato “lungo”. Se il coupon è 
normale o corto, introducete “N” e quindi introducete la data di inizio del 
periodo. Sia per i coupon lunghi per quelli normali o corti, introducete la data 
finale del periodo corrente, e la data di liquidazione. Il programma fornirà la 
derivazione dell’interesse in percento del valore. 


Esempio 

Quale è l’interesse derivato per liquidazione al 10/9/79 di una obbligazione 
all’8,25% il 31/8/81, emessa con primo coupon lungo il 29/8/79? Le date dei 
coupon sono il 28/2 e il 31/8. Il primo periodo inzia il 28/2/79. (Il 1980 è un anno 
bisestile, e quindi la fine del periodo corrente è il 29/2/80). 

Risposta: l’interesse derivato è lo 0,271485% del valore. 

CALCOLO BELL'INTERESSE DI OBBLIGAZIONI 
GALCOLATO USANDO 

anno di cee giorni 

2> ANNO DI 365/366 GIORNI 
3: FINE PROGRAMMA 

0UALE ?? 2 

INTERESSE CEDOLE <’!'? 3.25 
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NUMERO DI CEDOLE PER ANNO? 2 

QUESTE CEDOLE COMPRENDONO UH PRIMO PERIODO LUNGO <3/N> 


INI3I0 I* PERIODO <GG,MM,AA5'? 28 . 2 , 79 
DATA EMISSIONE IGG.MH,AA>C 29 , 8 , 79 
DATA PRIMA CEDOLA <OG.MM,AA>? 31 , 8 - 79 
"INE PERIODO CORRENTE <GG,MM,AA:>T 29 , 2 , 30 
DATA LIQUIDAZIONE 'CO,MM,AA>? IO , 3 , 79 

L ' INTERESSE CALCOLATO E' .271485308 

‘,'UOI RIUTILIZZARE QUESTO PROGRAMMA CON NUOVI DATI <S.'N>? N 


Problemi pratici 

Quale è l’interesse derivato per liquidazione al 3/6/80, di una obbligazione 
FHLB (Federai Home Loan Bank Bond) al 7,375% il 25/8/82. Le date dei coupon 
sono il 25/2 e il 25/8 (la FHLB usa il metodo dei 360 giorni per i propri conti). 

Risposta: 2,007638%. 


Llsting del programma 

IO PRIUT "CALCOLO DELL'INTERESSE DI OBBLIGAZIONI" 

20 FRINT 

CO PRIUT "CALCOLATO USANDO" 

40 RRINT "1> ANNO DI 360 GIORNI” 

50 RRINT "2> ANNO DI 365."366 GIORNI" 

SO RRINT "33 RINE PROGRAMMA" 

70 RRINT 

30 RRINT " QUALE ?“; 

90 INPUT T 
100 IF 7=1 THEN 130 
110 IF T=3 THEN S20 
128 IF TC32 THEN 80 

« ^0 ppj^-r 

140 RRINT "INTERESSE CEDOLE <X>"; 

150 INPUT I 
160 RRINT 

170 RRINT "NUMERO DI CEDOLE PER ANNO"; 

ISO INPUT N 
190 "1=0 
200 PRINT 

218 PRINT "QUESTE CEDOLE COMPRENDONO UN PRIMO PERIODO LUNGO <S/N)“ 

220 INPUT Zt 

238 IF Zf=”N” THEN 410 

240 IF ZTC’S" THEN 210 

250 REM — SALTA QUESTA PARTE SE IL PRIMO PERIODO NON E' LUNGO — 

260 PRINT 

270 PRINT”INIZIO I* PERIODO <GG,MM,AA>"; 

280 GOSUB 550 
290 512=84 

300 REM — LA DATA DI EMISSIONE E' QUELLA IN CUI IL POSSESSORE OTTIENE LA 
305 REM OBBLIGAZIONE — 

310 PRINT "DATA EMISSIONE <GG,MM,AA>"; 

320 GOSUB 650 

330 PFM — XI = NUMERO GIORNI DALL' EMISSIONE ALLA FINE DEL PRIMO PERIODO 
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335 REM — PARZIALE 
340 XI«ABS<X2-A4> 

350 PRIMI "DATA PRIMO CEDOLA <GG,MM,AA>"; 

:eo oosub 658 

370 REM — 5>2 «NUMERO TOTALE GIORNI DEL PRIMO PERIODO 

330 ;:2=AES<X2-A4) 

390 Iil=(X2-Xl)/X2 

400 GOTO 468 
410 PRIMT 

420 PRIMI "INIZIO DEL PERIODO CORRENTE <GC,MM,AA>"; 

430 GOSUB 650 

440 REM — !!3 = NUMERO ASSOLUTO DI GIORNI DALLA DATA IMMAGINARIA 
450 REM — 00/00700 ALL ' INIZIO DEL CORRENTE PERIODO 
460 X3=A4 

470 PRIMI "FINE PERIODO CORRENTE (GG-MM,AA>”; 

4.3G GOSUB 650 

490 REM — !'4 = NUMERO GIORNI TOTALI NEL PERIODO CORRENTE 
500 !C4=ABS«i3-A4> 

510 FRI NT "DATA LIQUIDAZIONE <GG,MM,AAV; 

520 GOSUB 650 

520 REM — X3 = NUMERO DEI GIORNI DALL ’ INIZIO 

540 REM — PERIODO CORRENTE ALLA DATA DI LIQUIDAZIONE 

550 X3=ABS <X3-A4 > 

560 5!3=<X3/X4>*X1 
570 PRINT 

530 PRINT "L" INTERESSE CALCOLATO E'“; <I/N)*X3; 

590 PRINT 

600 PRINT “VUOI RIUTILIZZARE QUESTO PROGRAMMA CON NUOVI DATI <S/N>”; 

SIO INPUT ZT 

620 IF Z*="3" THEN 20 

630 IF Zf="H" THEN 320 

540 GOTO SO0 

550 INPUT D-M-V 

560 IF T=1 THEN 300 

579 REM — S'OTTOPROGRAMMA PER DETERMINARE IL NUMERO DI GIORNI COMPRESI FRA LA 
S90 REM — RIF. SCONTO PAGABILE SCONTO RICEVIBILE (MANO) P.255 
700 RESTORE 

710 DATA 0,3,3,6,3,11,13-15,19-21-24,26 
728 FOR 11=1 TO M 
730 READ A4 
740 ne::t ii 

750 A4=A4 *V4365+1NT 4 V/4>+1+<M-1>*28+D 

"50 IF INT CV/430Y/4 THEN 770 

>32 IP M32 THEN 770 

764 r*4=A4-1 

"70 RETURN 

730 REM — SOTTOFROORAMMA PER CALCOLARE IL NUMERO DI GIORNI DALLA DATA 
"90 REM -- IMMAGINARIA 00/00/08 A GG/MM/AA USANDO UN ANNO DI 360 GIORNI. 

300 A4=CV*36Q? KM*30>+D 
319 RETURN 
228 END 


Bibliografia 

Stigum, Marcia. The money Market: Myth: Myth, Reality, andPraetice. Homewo- 
od. III.: Dow Jones-Irwin, 1978, Pag. 538-47 
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INTERESSE CONTINUO COMPOSTO 


Questo programma calcola il valore futuro di un investimento, sul quale 
l’interesse è composto continuamente. Introducete il tasso d’interesse, il numero 
di anni su cui l’interesse agisce, e l’ammontare del deposito iniziale. Il valore totale 
è basato sulla seguente formula: 


T = De ,N 

Dove: 

T = valore totale dopo N anni 
D = versamento inziale, 

I = tasso d’interesse 

e — 2,718281828... (Base dei logaritmi naturali) 


Esempio 


Dan deposita $ 800,00 al 7‘/ 2 % di interesse, composto continuo. Quanto 
varrà il suo conto dopo 10 anni? 


Risposta: $ 1.693,60 


INTERESSE CONTINUO COMPOSTO 
INTRODUCI IL Tasso DI INTERESSE ANNUO 
OHE DEVE ESSERE PAGATO 

—• sr 

INTRODUCI IL NUMERO DI ANNI 0 FRAZIONE 
DI ANNI CHE L'INTERESSE ACCUMULERÀ' 

- « A 

INTRODUCI IL TUO DEPOSITO INIZIALE 
? S00 

CON COMPOSIZIONE CONTINUA UN DEPOSITO DI 
t. 300 FRUTTA IN IO ANNI AL 7.5 % 


Problemi pratici 

1. Se Giorgio investe $ 5.000,00 al 9% composto continuo, quando avrà in 7 
anni e 3 mesi (introduci 7 anni e 3 mesi come 7,25 anni)? 

Risposta: $ 9.601,68 
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2. Il Dr.Giuliano investe $ 70,00 per sua nipote nel giorno della sua nascita. 
Di quanto potrà disporre sua nipote all’età di 21 anni se il tasso d’interesse 
composto continuo è del 6'/ 4 %? 


Risposta: $ 260,08 


Llsting del programma 


IO FRI NT "INTERESSE CONTINUO COMPOSTO" 

-0 PRIMI "INTRODUCI IL TASSO DI INTERESSE fiUNUG" 

CO PRIMI "SIC DEVE ESSERE FUGATO" 

40 I : ir VT I 

"0 IP I >0 THEN DO 

SO -RIMI “INTRCDUCI IL NUMERO DI ANNI 0 FRAZIONE" 

"0 PRIMI 'DI ANNI CHE L'INTERESSE ACCUMULERÀ'" 

-o INPUT M 

:<■ IR N :=0 THEN SO 

;C-0 -RI 1 ! "INTRODUCI IL TUO DEPOSITO INIZIALE" 

I10 INPUT D 

ICO IP D :-0 THEN 100 

ICO PRIMI "CON COMPOSIZIONE CONTINUA UN DEPOSITO DI" 
140 PRIMI "f." D. " FRUTTA IN".N;" ANNI AL";I;"K" 

ice frint "r." imt:s0o*<d#e::f;i.•igg*m>o+.so.ìoq 
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INTERESSE CALCOLATO CON LA REGOLA 

DEL 78 


Questo programma calcola, in accordo con la regola del 78, l’interesse 
mensile su di un prestito. Introducete l’interesse totale che guadagnereste fino alla 
completa maturazione del prestito, ed il numero di mesi del periodo originale del 
prestito. Il programma vi fornirà una tabella con il numero di ogni mese, l’interes¬ 
se guadagnato in quel mese, l’interesse totale guadagnato fino al momento del 
controllo e il bilancio dell’interesse restante sino alla fine dei mesi (interesse non 
guadagnato). 


Esempio 


Un prestito a 24 mesi da un interesse totale di $ 10.000,00. Quale è l’interesse 
mensile del prestito? 


Risposta: 


INTERESSE 'CALCOLATO IN BASE ALLA REGOLA PEL '78 
INTRODUCI L'INTERESSE TOTALE CHE DEVE ESSERE GUADAGNATO 
PER LA MATURAZIONE DEL PRESTITO 
'■ 10000 

INTRODUCI IL NUMERO DEI MESI DI DURATA 
DEL PRESTITO FINO A MATURAZIONE 
? 24 


MESI DI 

INTERESSE 

TOTALE 

BIL. DI 

PRESTITO 

MENSILE 

INT. 

INTERESSI 

A 

300 

300 

920O 


766.67 

1566.67 

■- 4-0 < 53 

3 

733.33 

2300 

77 ÒÒ " " 

4 

700 

3000 

7000 

E7 

666.67 

3666.67 

6333.33 

S 

533.33 

4300 

5700 

7 

600 

4300 

5100 

3 

566.67 

5466.67 

4533.33 

3 

533.33 

60O0 

4000 

10 

500 

5500 

3500 

11 

466.67 

5966.67 

3033.33 

1 ? 

433.33 

740O 

2500 

13 

400 

7800 

2200 

14 

*366.67 

3166.67 

1333.33 

15 

333.33 

8500 

1500 

16 

300 

3300 

1200 

17 

266.67 

9066.67 

933.33 

18 

233.33 

9300 

700 

19 

200 

950O 

500 

20 

166.67 

9666.67 

333.33 

21 

133.33 

9800 

200 

r“i> 

100 

9900 

100 



23 se.e? 9966.67 33.33 

24 33.33 10600 0 

ARROTONDATI ALL'ULTIMO MESE 


Problemi pratici 

1. Laura concede un prestito a 36 mesi. Il suo interesse totale è di $ 3.614,59. 
Quale è il bilancio degli interessi non guadagnati se il prestito viene restituito dopo 
2 anni? 

Risposta: $ 423,33 

2. Bob Johnson paga in due anni un prestito di tre anni. Se l’interesse totale 
doveva essere di $ 180,00, quanto interesse è stato pagato da Bob? 

Risposta: $ 98,94 


Listing del programma 

5 FRINT"INTERESSE CALCOLATO IN BASE ALLA REGOLA DEL '73" 

9 REM FUNZIONE DI ARROTONDAMENTO 

10 DEF FNR<X>»INT<1C«*X+.5>.'1O0 

20 FRINT"INTRODUCI L'INTERESSE TOTALE CHE DEVE ESSERE GUADAGNATO" 
30 PRINT-PER LA MATURAZIONE DEL PRESTITO" 

40 INPUT I 

£8 FRINT"INTRODUCI IL NUMERO DEI MESI DI DURATA" 

70 FRINT"DEL PRESTITO FINO A MATURAZIONE" 

38 INPUT T 
188 T1=T*<T+1V2 

110 PRINT"MESI DI INTERESSE TOTALE DIL. DI " 

128 FRINT"PRESTITO MENSILE INT. INTERESSE" 

130 A=8 

139 REM STAMPA LA TABELLA 

140 FOR M=1 TO T-l 

170 J=FNR < < T -M+1 > *1 /T1 > 

130 A=A+J 
190 £= I -A 

240 FRINTM.. J.A,FNRCB> 

250 NEXT M 

255 PRIUT T,FNR<£),A+£,0 

260 PRINT"ARROTONDATI ALL'ULTIMO MESE" 

270 END 
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VALORE ATTUALE DI UNA RIDUZIONE 

DI TASSA 


Nella valutazione di un investimento si deve considerare il valore della 
riduzione di tassa. Questo programma calcola appunto l’ammontare della ridu¬ 
zione di tassa conseguente alla deduzione degli interessi pagati. 

Introducete la quota di tassa, il tasso di interesse sul debito, il termine del 
debito (in anni) e l’ammontare dell’interesse pagato durante ogni anno del termi¬ 
ne. 


Note al programma 

Se il livello del debito è costante durante il termine dell’investimento, potrete 
cambiare il programma per calcolare i totali dell’interesse come percentuali di un 
debito fisso. In tal caso dovrete operare questi cambiamenti: 


90 PRINT"NUMERO DI PERIODI"; 

100 INPUT N 

102 PRINT"INSERIRE L'AMMONTARE DEL DEDITO <*>“; 
104 INPUT Z 
110 P=0 

120 F0R J=1 TO N 

ISO PRINT 2*K 

190 P=P+<2#K#TV(a+K>fJ> 

200 NEXT J 
READY. 


Esemplo 


Quale è il valore presente della riduzione di tassa su di un pagamento di $ 
4.000, $ 3.500, $ 4.500, $ 4.000 e $ 5.000 proiettato su cinque anni, se la quota di 
tassa è del 48%, ed il tasso di interesse sul debito è del 19%.? 


Risposta: Se i cinque interessi pagati sono dedotti dal reddito tassabile, il 
valore presente della tassa ridotta è $ 6.044,74. 

VALORE ATTUALE DI UNA RIDUZIONE SULLE TASSE 

QUAL E' L'ALIQUOTA DELLE TASSE <5i>? 48 
INTRODURRE IL TASSO DI INTERESSE <!.'>? 19 
NUMERO DI PERIODI? 5 
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INTERESSE TOTALE PER IL PERIODO <L.) 1 ? 4000 

2 '■ S500 
0 7 4500 

4 ? 40C0 

5 " 5000 


VALORE ATTUALE DELLA RIDUZIONE = t. 5844.74 
VORRESTI RIUTILIZZARE IL PROGRAMMA CON DATI DIFFERENTI 


:s.'N> 


Problemi pratici 

1. Nick acquista ortaggi freschi per un’esportazione che egli progetta di 
iniziare, per far ciò, ottiene un prestito di $ 6.250,00 con un tasso di interesse del 
16%. Egli farà dei pagamenti di interesse di $ 1.000,00, $ 900,00 e di $ 800,00, su tre 
anni. Se la sua nuova compagnia avrà una trattenuta di tassa del 33%, quale sarà il 
valore presente della riduzione di tassa dopo che egli avrà dedotto il pagamento 
degli interessi? 

Risposta: Il valore presente della riduzione di tassa, deducendo gli interessi 
pagati, e di $ 674,34. 

2. Se la quota di tassa è del 30% ed il tasso d’interesse è del 15%, quale sarà il 
valore presente della riduzione di tassa, se si dedurranno $ 45,00, $ 40,00, $ 35,00, 
$ 30,00 su 4 anni per pagamento di interessi? 

Risposta: Il valore è $ 32,86. 


Listing del programma 

10 PRINT"VALORE ATTUALE DI UNA RIDUZIONE SULLE TASSE" 
20 PRINT 

30 PRINT"QUAL'E' L'ALIQUOTA DELLE TASSE <S>“; 

40 INPUT T 
50 T=T/10O 

SO PRINT" INTRODURRE IL TASSO DI INTERESSE WJ 
70 INPUT K 
SO K=K/10O 

30 PRINT"NUMERO DI PERIODI"; 

100 INPUT N 
110 P=0 

120 FOR J=1 TO N 
130 IF JM THEH 1S8 

140 PRINT"INTERESSE TOTALE PER IL FERIODO :L.I"; 

ISO GOTO170 
ISO PRINT" 

170 PRINTJj 
ISO INPUT Z 

130 P=P+<Z#TV(<IMO ?7> 

200 NEXT J 
210 PRINT 
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Ci G' O O Gl Gl Gl 
ri 01 U'i ' jj r- co 

CI Ci ri0|CIC1C1 


PRIMI “VALORE ATTUALE I'ELLA RIDUZIONE =- f. " ; INT<?*I03+. SXMOC 
FRI UT 

FRIMT "VORRESTI RIUTILIZZARE IL PROGRAMMA CON DATI DIFFERENTI 
IMPUT Zt 

IF Z*="S" TNEM 20 
IF ZfO'N" THEN 240 
END 


Bibliografia 

Solomon e Pringle Art Introduction lo Financial management. Santa Monica 
Calif.: Goodyear Pub. Co., 1977. Pag. 376-78. 
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VALORE FUTURO DI UN INVESTIMENTO 
(FLUSSO DI CASSE NON UNIFORME) 


Spesso è utile proiettare nel futuro il valore dei soldi che si riceveranno su un 
investimento. Il criterio accetta/rifiuta, vi farà rifiutare quegli investimenti in cui 
il valore futuro del flusso di cassa, includendo il valore iniziale, è minore di zero. 
Questo programma calcola il valore futuro basandosi sul tempo (in anni) sulla 
crescita dell’aliquota e sull’ammontare del flusso di cassa per ogni anno. La 
crescita della aliquota vi indicherà quale è la quota che potrete nuovamente 
investire. 


Note al programma 

Se volete calcolare il valore futuro del flusso di cassa su di un periodo 
superiore ai 10 anni, dovreste sostituire la dimensione dell’ordine C () rispetto a 
come esso è formulato nella linea 30 del programma. 

Esempio 

Zia Lonna vuole creare un fondo per il collegio in cui studia suo nipote Brian. 
Essa conta di economizzare $ 200,00 quest’anno, $ 350,00 l’anno prossimo e $ 
250,00 il terzo anno. Il tasso di interesse è del 6%. Quale sarà il fondo alla fine dei 
tre anni? 

Risposta: Il fondo sarà di $ 845,72. 

VALORE FUTURO DI UN INVESTIMENTO 

NUMERO DI FLUSSI DI CASSA? 0 
QUOTA DI CRESCITA CD? 6 

tINTRODUCI LE ENTRATE COME VALORI POSITIVI, LE USCITE COME NEGATIVI' 

FLUSSO DI CASSA TOTALE 1 ? 280 

2 ? 350 
0 ? 250 

VALORE FUTURO ALLA FINE DEL PERIODO 3 = X. 045.72 

VUOI RIUTILIZZARE QUESTO PROGRAMMA CON NUOVI DATI I' <S/N>? N 
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Problemi pratici 

1. Quale sarà il valore futuro dopo 8 anni di un investimento di $ 25.000, 
tenuto condo che nel terzo anno viene fatto un nuovo investimento di $ 25.000, e 
che nel quinto anno si investono altri $ 10.000? Il tasso di crescita è del 15%. 

Risposta: $ 101.575,68. 

2. Se il tasso di crescita era del 18%, quale sarebbe stato il valore futuro? 
Risposta: $ 120.400,47. 


I 


Linsting del programma 

IO PRINT "VALORE FUTURO 51 '.'ti INVESTIMENTO" 

22 DEF FHAOC-*:H7<5»109*.5.V1O© 

CO PRINT 

40 PRINT "ftUMERO DI FLUSSI fi CASSA"; 

re input fi 

SS -RIIIT "QUOTA DI CRESCITA OD“, 

73 INPUT p 
SO R=R. ' 100 
SO FRIUT 
ISO T=0 

HO PPIflT” .INTRODUCI LE ENTRATE COME VALORI POSITIVI, LE USCITE COME NEGATIVI)" 

iso por ;=: to ;; 

::o if :: : then ; se¬ 
no PRINT "FLUSSO 01 CASSA TOTALE"; 

ISO GOTO ITO 
ISO PRINT " 

ITO PRINT I; 

ISO INPUT CU) 

ISO REM SOMMA I VALORI FUTURI CI OGNI ANNO IN BASE AL TASSO DI R 
l'OO T=T+FNA<C<J>#< I +R> tCN-JiO 
SIO NENT I 
220 PRINT 

230 PRINT "VALORE FUTURO ALLA FINE DEL PERIODO";N;"= t .";T 
240 REM RIPARTI 0 TERMINI IL PROGRAMMA ? 

250 PRINT 

268 PRINT "VUOI RIUTILIZZARE QUESTO PROGRAMMA CON NUOVI DATI ? <S/N>"; 

278 INPUT Zt 
2S8 IF 2T="S" THEN 38 
290 IF Z*<>"N" THEN 260 
380 END 


Bibliografia 


Solomon e Pringle An Introduction to Financial Management. Santa Monica, 
California: Goodyear Publishing, 1977. 
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VALORE NETTO PRESENTE 
DI UN INVESTIMENTO 


Il valore netto presente (NPV), è definito come il valore presente di tutto il 
flusso di cassa associato ad un investimento, includendo in tale valore la spesa 
iniziale. Il criterio per accettare rifiutare un dato investimento è il seguente: va 
accettato ogni investimento in cui l’NPV è maggiore di zero. 

Per usare questo programma, introducete per prima cosa la durata dell’inve- 
stimento (in anni), quindi l’ammontare della spesa iniziale, l’ammontare del 
flusso di cassa per ogni anno e le rate richieste per il rimborso. 


Note al programma 

Per ottenere il valore presente di un investimento, introducete un investimen¬ 
to iniziale di zero. 


Esempio 

Jack ha l’opportunità di effettuare un investimento che richiede una spesa 
iniziale di $ 10.000, e che offre dei ritorni di cassa di $ 3.000, $ 5.000, $ 4.000 nei 
successivi tre anni. Jack desidera come minimo il 15% sulla restituzione del 
capitale. Qual’è l’NPV di questo investimento? Jack deve accettare? 

Risposta: L’NPV dell’investimento è di - $ 980,52. Jack non deve accettare. 


VALORE METTO PRESENTE 

INVESTIMENTO? 10000 
NUMERO SI ANNI? 3 

TASSO SI RITORNO RICHIESTO <H>? 15 

INTRODUCI IL FLUSSO TOTALE SI CASSA FER ANNO 
ILE USCITE COME NEGATIVE) 

ENTRATE FER ANNO. 1 ? 3000 

2 ? 5S0O 

3 ? 4-3G0 

VALORE NETTO PRESENTE = t. -OSO.520003 

VUOI RIUTILIZZARE QUESTO PROGRAMMA CON NUOVI DATI ? <S/N)?N 
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Problemi pratici 

1. Doris ha un credito che matura in due anni, essa vuole investire questi soldi 
in un nuovo complesso stereo. La sua banca vuole acquistare il credito al 10% di 
sconto. Quale sarà la cifra offerta dalla banca se il credito iniziale era di $ 
1.000,00? (Calcolo del valore presente). 

Risposta: La banca offre $ 826,45. 

2. Qual’è l’NPV su un investimento di $ 1.500, che viene così restituito: $ 
800,00 il primo anno, $ 900,00 il secondo. Nel terzo anno viene fatto un nuovo 
investimento di $ 1.000, che viene restituito con queste quote: $ 900,00 nel quarto 
anno e $ 800,00 nel quinto? L’investimento sui cinque anni richiede una offerta 
corrente di quota di ritorno del 15%. 

Risposta: L’NPV dell’investimento è $ 130,98. L’investimento è quindi accet¬ 
tabile. 


Listing del programma 


10 PRINT "VALORE METTO PRESENTE" 

20 DEF FNA 00=INT<X*1 DO*. SVIO® 

30 REM CAMBIA LA DIMENSIONE DELLA MATRICE CO FINO AL NUMERO MASSIMO DI FLUSSI 
35 REM DI CASSA 
40 DIM C <10? 

50 PRIMT 

SS PRIMT "INVESTIMENTO", 

70 INPUT CO 
S0 C0=-FNA(C0> 

90 PRINT "NUMERO DI ANNI"; 

100 INPUT N 

110 PRIMT "TASSO DI RITORNO RICHIESTO Ci?"; 

120 INPUT R 
130 R=R,'100+1 
140 F=0 
150 PRINT 

ISO PRIMT “INTRODUCI IL FLUSSO TOTALE DI CASSA PER ANNO" 

1S5 PRINT "(LE USCITE COME NEGATIVE?" 

170 PRINT 

ISO FOR J=1 TO N 

iso if : then 220 

20O PRINT "ENTRATE PER ANNO"; 

210 GOTO 230 

220 PRIMT " "; 

230 PRINT J; 

240 INPUT CU? 

250 F=F+FNfì<C<J?> 

2S0 NEXT J 
270 T=C0 

2S0 REM SOMMA I VALORI PRESENTI PER OGNI ANNO SULLA BASE DEL TASSO R 

2so for ;=: T0 N 

300 T=T+FNA(C< J?,'<RfJ? ? 

310 NEXT J 
320 PRINT 

330 PRINT "VALORE METTO PRESENTE * t .":T 
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-40 REM RIPARTI C TERMINI IL PROGRAMMA ? 

-V3 PRIMI 

il--, primi "VUOI RIL'TILIGEARE QUESTO FRGGRAMMA CON MUOVI DATI 

TpO INPUT Gl 

P30 IR Gf="3" THEM 50 

-P|0 I p Gre"N" IHEM GEO 

400 END 


IS.’N>", 


Bibliografia 

Rosen Lawrence R. Dow Jones-Irwìn Guide to Interest Homewood, 111: Dow 
Jones-Irwin, Ine., 1974. 

Solomon e Pringle An Introduction to Financial Management. Santa Monica, 
California: Goodyear Publishing, 1977. Pagine 261-262. 
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AFFITTO DECISIONE DI ACQUISTO 


Questo programma calcola il valore presente del costo dell’affitto, ed il 
valore presente del costo dell’acquisto di un dato bene. La diversità fra questi due 
valori ci indica se è più vantaggioso l’affitto o l’acquisto. Si assume che l’acquisto 
venga finanziato sullo stesso periodo della durata dell’affitto. 

Per usare il programma introducete il prezzo dell’affitto, il tasso d’interesse, 
la durata in anni, il valore risparmiato alla fine del periodo, l’aliquota di tassa, 
l’ammontare annuo del pagamento del prestito e il totale annuo dell’affitto. Il 
programma fornisce il valore presente del costo dell’acquisto, il valore presente 
del costo dell’affitto e la differenza fra i due totali. 

Questo programma deve essere considerato come un fattore decisionale non 
trascurabile, ma non è in grado di sostituire il vostro giudizio. Il capitale richiesto 
per il progetto e il rapporto affitto/periodo di prestito, devono in ultima analisi 
guidare la vostra decisione. In generale il deprezzamento ed il valore risparmiato 
riducono il costo dell’acquisto. Tuttavia, se l’attività ha una rapida obsolescenza, 
l’affitto resta la cosa meno costosa. 


Note al programma 

Questo programma è in realtà una versione modificata del Valore Netto 
Presente (NPV) di un programma di investimento, come tale, voi potrete conside¬ 
rarlo come una variante istruttiva utilizzabile su altri programmi di questo libro. 


Esempio 

Gli abitanti di un paese di montagna hanno bisogno di un servizio di 
trasporto giornaliero. Essi considerano la possibilità dell’acquisto di un carro per 
$ 6.000. Il risparmio dopo quattro anni è stimato essere di $ 2.0G0. La banca presta 
$ 6.000 al 16% di interesse, pretendendo di essere rimborsata in quattro anni con 
rate annuali di $ 2.145. L’affitto annuo è di $ 2.000. Le tasse sono il 40%, ed è 
stimato un deprezzamento annuale di $ 1.000. Qual’è il valore presente del costo 
dell’acquisto? E quello dell’affitto? Gli abitanti devono preferire l’acquisto o 
l’affitto? 

Risposta: Il valore presente del prestito è di $ 3.011,90. Il valore presente 
dell’affitto è di $ 3.357,82. Gli abitanti devono acquistare il carro. 
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DECISIONE DELL ALTERNATIVA AFFITTO.'ACQUISTO 


INTRODUCI IL PREZZO DI ACQUISTO 'CAPITALE INIZIALE.'? S0OO 
INTRODUCI IL TASSO DI INTERESSE CHI-? 15 
INTRODUCI LA DURATA IN ANNI? 4 

3UANT E' IL VALORE RISPARMIATO ALLA RINE DEI 4 ANNI? 2000 

QUAL'E' LA ALIQUOTA DI IMPOSTA CJ>? 40 
INTRODUCI LA RATA ANNUALE DEL PRESTITO? 2145 
INTRODUCI L'AFFITTO ANNUO? 2000 

INTRODUCI IL DEPREZZAMENTO TOTALE PER OGNI ANNO 

NUMERO ANNO 1 ? 1000 

2 ? 1000 

? ? 1000 

4 ? 1000 

VALORE CORRENTE DEL COSTO DELL'ACQUISTO = t. SOI 1.3 

VALORE CORRENTE DEL COSTO Di AFFITTO = t. 3357.82 

VANTAGGIO DELL'ACQUISTO = t. S45.3133?? 

VUOI RIUTILIZZARE IL PROGRAMMA CON NUOVI DATI <S.'N>?N 


Problemi pratici 

1. Nell’esempio precedente cosa sarebbe successo se l’affitto fosse stato di $ 
1.200 annui? 

Risposta: L’affitto sarebbe stato il più vantaggioso. Il valore presente dell’af¬ 
fitto, sarebbe stato, infatti, di $ 2.014,69. Ed il suo vantaggio sarebbe stato di $ 
997,21. 

2. L’industria Generatori Riuniti abbisogna di un computer per i suoi usi 
interni. Il modello che gli interessa costa $ 30.000 finanziati al 17% di interesse su 
cinque anni. Dopo cinque anni, l’industria progetta di vendere il computer per $ 
10.000, e di acquistarne un nuovo modello più grande. L’aliquota di tassa è del 
48%, il pagamento annuo del prestito è di $ 9.375,00 e l’affitto per cinque anni 
dell’equipaggiamento costa $ 3.500,00 annui. Il deprezzamento del primo anno è 
di $ 6.000,00, nel secondo anno è di $ 5.000, nel terzo è di $ 4.000, nel quarto è di $ 
3.000 e nel quinto è di $ 2.000. Cosa è più vantaggioso l’acquisto o l’affitto? 

Risposta: Con l’affitto si ottiene un vantaggio di $ 7.362,24. 


Listing del programma 

10 PRINT "DECISIONE DELL 'ALTERNATIVA AFFITTO.'ACQUISTO" 

20 REM • FUNZIONE DI ARROTONDAMENTO ALLE CENTINAIA 
SO DEF Ff«a>»IHT<X*:30+. 5>. ‘180 
40 PRINT 

DO PRINT "INTRODUCI IL -REZZO II .ACQUISTO CAPITALE INIZIALE? 
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,-fl input SI 

-o PRINT “INTRODUCI IL TASSO DI INTERESSE'?:;-"; 

'0 INPUT *1 

in REM - CONVERTE IL TASSO HI INTERESSE IH DEC IMfiLI 
'•30 I1*II-'130 

IT 0 PRINT "INTRODUCI L.i DURfiTfi IN ANNI"; 

■Ì0 INPUT VI 

I-ig RRINT "QUANT E IL VALORE RISPARMIATO .ìLLn FINE DEI VI ; "ANNI " 
•40 INPUT 31 
ISO FRINT 

■ eo PRINT "QUAL E' LA ALIQUOTA DI IMPOSTE <?:>"; 

*70 INPUT RI 

•so REM - CONVERTE L'HLIOUCTfi DI IMPOSTA IN DECIMfiLI 


•SO RI=R1-’IOO 

?O0 PRINT "INTRODUCI Lfi 

210 INPUT Hi 


PfiTfi ANNUALE DEL PRESTITO"; 


PRINT "INTRODUCI L'AFFITTO ANNUO”; 

230 INPUT A2 

240 REM - RI-INIZIALIZZA LE SOMME TOTALI A ZERC 


750 Tl=0 

reo L1=0 
770 PRINT 

•?S0 PRINT "INTRODUCI IL DEPREZZAMENTO TOTALE PER OGNI ANNO" 

7?0 PRINT 

300 REM - CICLO PER INTRODURRE, CALCOLARE ED ARCHIVIARE I VALORI DONI ANNO 

310 FOR Z=1 TO VI 

720 IF ZM THEN350 

330 PRINT "NUMERO ANNO"; 

340 GOTO 360 
350 PRINT " 

360 PRINTZ; 

370 INPUT DI 

380 REM - CALCOLA L'INTERESSE TOTALE FER CONI ANNO 
390 BO=AES<B1-FNA< B1*(1 +11>)> 

400 REM - CONVERTE DI AL VALORE CORRENTE DEL COSTO DI POSSESSO OGNI ANNO 
410 DI =FNA< < Al -FNA< <D1 +B0>*R1 >,V< ' 1 *11) 1Z>> 

420 REM - SOTTRAE I PAGAMENTI ANNUALI, SOMMA GLI INTERESSI ANNUI AI CAPITALI 
430 B1=B1-A1+B0 

440 REM - SOMMA IL VALORE DEI TOTALI CORRENTI DI OGNI ANNO 
450 T1-T1+D1 

460 REM - CALCOLA IL VALORE CORRENTE DEL COSTO DI AFFITTO DI OGNI ANNO 
470 L1 =L 1 +FNA< <A2-<A2*R 1 ». ■< 1*-11 > 1Z> 

480 NEXT Z 

490 REM - SOTTRAE IL VALORE CORRENTE DI RISPARMIO DAL COSTO TOTALE DI POSSESSO 
500 T1 =T 1 -FNACS1 /(1 HI>tVl> 

510 REM - USCITA RISULTATI 
520 PRINT 

530 PRINT "VALORE CORRENTE DEL COSTO DELL ACQUISTO = *.";T1 
540 PRIHT "VALORE CORRENTE DEL COSTO DI AFFITTO = *.";L1 
550 PRINT 

560 IF LI CTI THEN 590 

570 PRINT "VANTAGGIO DELL'ACQUISTO = 4.";LI-TI 
580 GOTO 600 

590 PRINT "VANTAGGIO DELL'AFFITTO = t.";Tl-Li 
600 PRINT 

SIO REM - RIPARTI 0 TERMINI IL PROGRAMMA? 

520 PRIHT "VUOI RIUTILIZZARE IL PROGRAMMA CON NUOVI DATI CS. 

630 INPUT Z* 

540 IF ZT="S” THEN 40 
650 IF ZfO“N" THEN 620 
660 END 
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analisi degli investimenti sindacali 


Questo programma valuta il risparmio di tasse ed il flusso netto di cassa 
sull’investimento di un consorzio, o gruppo di investitori che partecipa ad un dato 
investimento. Il programma tiene conto della tassa trattenuta agli investitori, 
della porzione dell’investimento originale, della partecipazione al reddito di 
cassa, del reddito tassabile/perdita, dei crediti di tassa. 

Per usare questo programma introducete la durata dell’analisi in anni ed il 
primo anno di costituzione del consorzio. Quindi, per ogni anno, introducete il 
reddito di cassa del consorzio, seguito dal reddito tassabile. Introducete gli anni 
(1,2, ecc...) e l’investimento totale in questi anni. Quindi, introducete l’anno e 
l’ammontare dell’investimento o degli altri crediti di tassa (introdotti come nume¬ 
ri negativi) e l’ammontare dei crediti recuperati (introdotti come numeri positivi). 
Successivamente, introducete l’assegnazione percentuale per ogni investitore: 
percentuale dell’investimento totale, cassa, reddito, reddito tassabile (o perdita) e 
crediti. Introducete alla fine la trattenuta di tassa, trattenuta che va introdotta 
come percentuale. 

Il programma fornisce una analisi che mostra l’investimento originale di ogni 
singolo investitore, il reddito di cassa, il reddito tassabile, il risparmio di tasse (i 
risparmi di tassa sono negativi, le tasse pagate sono positive), il flusso di cassa 
netto alla fine dell’analisi e il flusso di cassa cumulativo netto. Si può ripetere 
l’analisi per tasse diverse quando il programma richiederà di considerare una 
nuova tassa. (Tutti gli altri fattori dell’investimento restano invariati). Introduce¬ 
te una tassa di 999 per rispettare l’assegnazione percentuale. Introducete una 
assegnazione di investimento percentuale di 999 per terminare il programma. 


Note al programma 

Il programma fornisce una proiezione su 40 anni. Potrete cambiare questo 
valore modificando la linea 20 e la linea 30 come segue: 

20 N9 = I 

30 DIM C(l), D(l), J(l), K(l), S(l), T(l), U(l), V(l) 

Sostituite l’espressione I con una costante uguale al numero massimo di anni 
che volete considerare. 
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Esemplo 


Consideriamo questo investimento sindacale: un reddito di proprietà con ,$ 
35.000 sotto pagamento, che genera $ 4.500 in cassa sui primi quattro anni, $ 5.200 
sui successivi quattro anni e $ 5.500 sui restanti cinque anni. L’investimento fa 
guadagnare un credito di tassa di $ 3.500 il primo anno. Il reddito tassabile parte 
da - $ 3.800 ed aumenta di $ 1.100 per anno durante il periodo di investimento. 

L’investitore ha una trattenuta di tassa del 55% e il suo contributo alla cassa 
originale è del 30%. La partecipazione è del 30% sul reddito di cassa e sul reddito 
tassabile. Quale sarà il risultato per l’investitore se egli eseguirà il programma? 


Risposta: La lista sottostante mostra la porzione di reddito di cassa, rispar¬ 
mio di tassa, flusso di cassa netto e cumulativo per l’investitore. Alla fine della 
proiezione dell’investimento la cassa cumulativa per questo investitore è di $ 
4.432, e l’investimento è protetto fino alla fine del 1985, quando egli dovrà pagare 
una tassa di $ 109. 


ANALISI DEGLI INVESTIMENTI DI UN CONSORZIO 

PER QUANTI ANNI VOLETE 

QUESTA PROIEZIONE (LIMITE 4S )? 10 

INTRODUCI IL PRIMO ANNO DI 
CONSORZIO <E.G. ISSI>? ISSO 

PER L' INTERO CONSORZIO,INTRODUCI IL REDDITO DI CASSA 

SU OGNI ANNO DI PROIEZIONE 

ANNO 1 TASSABILE =? 4500 

ANNO 2 TASSABILE =? 4500 

ANNO 3 TASSABILE =? 4500 

ANNO 4 TASSABILE =? 4500 

ANNO 5 TASSABILE =? 5200 

ANNO 6 TASSABILE =? 5200 

ANNO 7 TASSABILE =? 5200 

ANNO 8 TASSABILE =? 5200 

ANNO 9 TASSABILE =? 5500 

ANNO IO TASSABILE =? 55O0 

ANNO li TASSABILE =? 5500 

ANNO 12 TASSABILE =? 5500 

ANNO 13 TASSABILE =? 5500 

PERL' INTERO CONSORZIO,INTRODUCI IL REDDITO 
TASSABILE PER OGNI ANNO DI PROIEZIONE 
(POSITIVI I REDDITI, NEGATIVE LE PERDITE) 

ANNO 1 TASSABILE?-3800 
ANNO 2 TASSASILE?-2700 
ANNO 3 TASSASILE?-1600 
ANNO 4 TASSABILE?-500 
ANNO 5 TASSABILE? 600 
ANNO 6 TASSABILE? 1700 
ANNO 7 TASSABILE? 2800 
ANNO 8 TASSABILE? 3300 
ANNO 9 TASSABILE? 5000 
ANNO IO TASSABILE? 6100 
ANNO 11 TASSABILE? 7200 
ANNO 12 TASSABILE? 8300 
ANNO 13 TASSABILE? 9400 

INTRODUCI L' ANNO <1,2, ECC.> ED 
IL TOTALE INVESTIMENTO DELL'INTERO GRUPPO 
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tir INVESTITORI SI QUELL ANNO. DOPO L'ULTIMO 
ANNO. INTRODUCI 99999,& 

" ! , 35000 

A 99993 , 0 


ENTRATA.. INTRODUCI 99999,0 
i , -3500 
A 99999 , 0 

-rRCDUCI LE ALLOCAZIONI PERCENTUALI <«: - 10O?.') 
?r» flUESTO INVESTITORE... 

PERCENTUALE SI INVESTIMENTO I399=FINE)? 30 
PERCENTUALE SEL REDDITO SI CASSA? 30 
PERCENTUALE SEL REESITG TASSABILE 
■;0 PERDITA), E CREDITI? 30 


..•TRADUCI LE TRATTENUTE <339=CAMBIA ALLOCAZIONE)? 55 
RISULTA PER L INVESTITORE 55 X DELLE TRATTENUTE 


ANNO 

INVESTI - 

REDDITO 

TASSA 

NETTO 

CASSA 


MENTO 

CASSA 

FISPARK. 

CASSA 

CUMUL. 

:?so 

18580 

1350 

-1577 

-7473 

-7473 

1381 

-, 

1350 

-446 

1735 

-5677 

1382 

fj 

» -c.-. 

- -■ 

-264 

1614 

"4063 

1383 

3 

1330 

-32 

1432 

-2631 

1384 

2 

1360 

5? 

1461 

-1170 

1385 

3 

1360 

231 

1273 

183 

1386 

0 

1560 

462 

183S 

1207 

1387 

n 

1560 

644 

316 

2123 

1388 

5 

1550 


325 

2343 

1383 


1550 

1007 

543 

3591 

1330 

"V 

fi 

1550 

1133 

462 

4853 

1391 

3 

1550 

1370 

230 

4333 

1392 

3 

1550 

< erer * 

oc- 

4432 


QUESTO MODULO NON COMPRENDE TASSE MINI¬ 
ME. RIFIUTI DI SFESE DI INTERESSE DI 
INVESTIMENTO, 3EZ. CODICE 1S3, ECC. 


Problemi pratici 

1. Alvin vuole iniziare una carriera teatrale con i suoi fratelli Simon e 
Theodore. Alvin ha una trattenuta di tassa del 40%. Egli contribuisce con il 45% ai 
$ 30.000 necessari per costruire uno studio di registrazione. Partecipa al 20% ai 
guadagni di cassa, e al 45% al guadagno tassabile. Alvin si aspetta che lo studio 
renderà $ 8.000 per anno nei primi due anni. Il terzo anno pensa di fare un nuovo 
investimento di $ 15.000 per nuove apparecchiature. Il guadagno tassabile parte 
da - $4.200, e cresce di $ 1.000 per anno. Il reddito di cassa aumenta di $ 12.000 per 
anno a partire dal terzo anno fino al decimo (ultimo anno della proiezione). 

Quale sarà il flusso di cassa cumulativo di questo investimento per Alvin? 
Quando dovrà iniziare a pagare le tasse sulla sua porzione di investimento? Si 
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assuma un guadagno per crediti di tassa del 10%, dovuto all’investimento iniziale 
ed a quello del terzo anno. 

Risposta: Il flusso di cassa cumulativo alla fine dei dieci anni risulta essere di 
$ 3.635. Prendendo il 1980 come anno iniziale Alvin inizierà a pagare le tasse su 
questo investimento nel 1985 ($ 144). 

2. Fred vuole impiantare un servizio turistico con elicottero. Ha una trattenu¬ 
ta di tassa del 65% e vuole partecipare a tutti gli aspetti della società al 51%. 
L’investimento iniziale per un elicottero a 4 posti è di $ 12.500. Fred progetta di 
prendere un elicottero da 6 posti dopo tre anni. Il gruppo riceve un credito di tassa 
di $ 6.500. Se al terzo anno viene fatta la sostituzione, il gruppo riceve un ulteriore 
credito di tassa di $ 8.500, e questo nuovo investimento gli costa $ 19.000. Essi 
vendono il primo elicottero durante il quarto anno, ricevendo $ 4.167 come 
recupero di credito. Il reddito di cassa è di $ 40.000 per anno nei primi tre anni e 
cresce a $ 48.000 per anno a partire dal terzo fino all’ottavo (anno finale della 
proiezione). Il reddito tassabile parte da - $ 9.000 e cresce di $ 2.000 ogni anno. 

Qual è il totale flusso di cassa cumulativo per gli otto anni in proiezione? 
Quanto incide su di esso il credito recuperato nel quarto anno ? 

Risposta: Il flusso di cassa cumulativo totale è di $ 182.441. Fred dovrà 
pagare $ 1.131 in tassa nel quarto anno, e ciò a causa del credito recuperato. 


Listlng del programma 

1 FRIUT "ANALISI DEGLI INVESTIMENTI SI UN CONSORZIO" 

2 FRINT 

10 SEF fnr:x>*int<x*.5> 

13 REM NOMASSIMO ANNO SI PROIEZIONE 
CO f 10=40 

20 oi m c:40>, j<40 >,t;40>,lk4Co 
230 FRINT "PER QUANTI ANNI VOLETE" 

210 FRINT "QUESTA PROIEZIONE 'LIMITE ",N9;")"; 

220 INPUT V 

225 IP V2.N5 THEN 200 

220 .-'RINT 

240 PRINT “INTRODUCI IL PRIMO ANNO SI" 

250 PRINT "CONSORZIO (E.O. 1931)", 

2?0 INPUT VI 
220 PRINT 

250 PRINT"PER L' INTERO CONSORZIO,INTRODUCI IL REDDITO DI CASSA" 
290 PRINT "SU OGNI ANNO DI PROIEZIONE" 

200 POR 1=1 TO V 

219 PRINT "ANNO";l;"TASSABILE ="; 

320 INPUT 2<I> 

240 NE”T I 

359 PRINT 

360 PRINT "PER L' INTERO CONSORZIO,INTRODUCI IL REDDITO" 

379 PRINT "TASSABILE PER OGNI ANNO DI PROIEZIONE" 

230 PRINT "IPOSITIVI I REDDITI, NEGATIVE LE PERDITE)" 

290 POR 1=1 T0 V 

-00 PRINT "ANNO",!."TASSABILE"; 

410 input t:i> 

420 NENT I 
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440 

450 

460 

470 

430 

.<5fi 

500 

505 

=20 

=2(4 

540 

560 

=70 

530 

590 

<00 

610 
^ • C| 

530 

640 

545 

650 


530 

635 

590 

<33 

695 

'00 

-»^*r 

; v-- 

718 

720 

" , ? c ^ 

750 

->ec 

rèo 


PRINT 

opimi "INTRODUCI L' ANNO <1,2, ECC.> ED" 

PPINT "IL TOTfìLE INVESTIMENTO DELL'INTERO GRUPPO" 
'oriUT "DI INVESTITORI DI QUELL fìNNO. DOPO l "ULTIMO" 
PRINT "ANNO, INTRODUCI 99999,0" 

INPUT I,N0 
re 1=99999 THEN 538 
J<I>=N0 
•V;*TO 490 


"INTRODUCI L'ANNO 61, 2, ECC.> E" 

"IL TOTALE CREDITO IH INVESTIMENTO 0 ALTRO" 
"NEGATIVO), £ IL CREDITO RECUPERATO" 
■"POSITIVO). DOPO L'ULTIMA" 

INTRODUCI 99999,0" 


7S0 

300 

610 

?20 

350 

370 

390 

900 

41C1 


PRINT 
PRINT 
oRINT 
PRINT 
PRINT 

PRINT "ENTRATA, 

INPUT 1.550 
IF 1=99999 THEN640 

u<i'=J-:o 

GCTO600 

PRINT 

FRI NT "INTRODUCI LE ALLOCAZIONI PERCENTUALI <0?I - 100X)» 
PRINT "PER QUESTO INVESTITORE..." 

PRINT "PERCENTUALE DI INVESTIMENTO <999=FINE>"; 

INPUT PI 

IF PII993 THEN2170 
P1=P1.’100 

PRINT "PERCENTUALE DEL REDDITO DI CASSA"; 

INPUT PC 
? 2 = F 2.'100 

PRINT "PERCENTUALE DEL REDDITO TASSABILE" 

PRINT "<G PERDITA), E CREDITI"; 

INPUT P3 

P3=PO.'10O 

PRINT 

PRINT "INTRODUCI LE TRATTENUTE ':999=CAMBIA ALLOCAZIONE)"; 
INPUT TI 

IF TI1993 THEN 640 

PRINT "RISULTA PER L'INVESTITORE ";T1;"K DELLE TRATTENUTE 

T>T1,’1C0 

PRINT 

PRINT "ANNO INVESTI- REDDITO TASSA NETTO 

PRINT " MENTO CASSA RISPARM. CASSA 

PRINT 
Si=0 

FOR 2=1 TC V 
K=FNR'P1*J<I)) 

D=FNR6F2*C<D) 

V=FHR<F3#T<I>#T1*F3*U<I>) 

S=D-K-V 
31=31*3 


920 PRINT VI*I-1,K,D,V,S,S1 
940 IF I.*3 O INT<I,'3) THEN960 
950 PRINT 
960 .MENTI 

2099 REM STAMPA LINEE BIANCHE 

2100 PRINT "QUESTO MODULO NON COMPRENDE TASSE MINI-" 
2110 PRINT "ME, RIFIUTI DI SPESE TI INTERESSE DI " 
2120 PRINT "INVESTIMENTO, 3EZ. CODICE 183, ECC." 

2130 PRINT 

2140 PRINT 
2150 PRINT 
2150 GOTO 710 
2170 END 


CASSA" 
CUMUL." 
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SCAMBIO DI AMMORTAMENTO 


Un metodo accelerato di ammortamento viene utilizzato per grossi ammor¬ 
tamenti in pochi anni. Ad un certo punto, l’ammortamento può essere sostituito 
con una linea retta che considera un largo ammontare deH’ammortamento dato 
negli ultimi anni usando il metodo accellerato. 

Il calcolo viene fatto sulla base di un costo fisso di un milione. Il costo attuale 
della attività svolta non è importante. Il milione di dollari di costo serve solo per i 
calcoli. Introducete il metodo di ammortamento usato per questa attività, in 
percento (cioè 125, 150, 200, ecc.); la durata dell’attività, in anni e il numero di 
mesi di ammortamento nel primo anno di attività. (Se il primo anno è completo si 
dovranno introdurre 12 mesi). 


Esemplo 

Dei produttori, acquistato una macchina ad iniezione plastica che ha una 
durata, a pieno uso di cinque anni. Sei mesi vanno fatti rientrare nel primo anno 
fiscale, e la ditta si propone di usare una diminuzione nel bilancio di ammorta¬ 
mento del 200%. A che punto potranno scambiare il metodo di deperimento con il 
metodo di ammortamento a linea retta al fine di massimizzare l’ammontare 
ammortato? 

Risposta: Potranno scambiare i metodi al quinto anno. 

AMMORTAMENTO 

INTRODUCI IL METODO, IH PERCENTUALE O-FINEJ? 230 

INTRODUCI LA VITA UTILE DEL PATRIMONIO, IH ANNI? T 

INTRODUCI IL NUMERO DI ME?I DI AMMORTAMENTO NEL PRIMO ANNO ? - 

ANNO DI SCAMBIO - 5 

INTRODUCI IL METODO, IN PERCENTUALE :0=FIME:'? ? 

Problemi pratici 

1. Nell’esempio precedente, cosa succede se i mesi di deprezzamento durante 
il primo anno sono 12? 

Risposta: Lo scambio fra i due metodi può avvenire al quarto anno. 


43 



2. Usando un deprezzamento del 150%, quando si può effettuare lo scambio 
con il metodo a linea retta se l’attività ha una durata di otto anni e se si assume che 
il primo anno sia un anno di deprezzamento completo? 


Risposta: Lo scambio può essere fatto al quarto anno. 


Llsting del programma 


-?:mt "<arer:T«Mi!T?" 

ss.- - "iLizzr _“! :: _:r.s 

:e ?.sr - 

•o E=1E-E 
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RIPARTIZIONE DI QUOTE 


Questo programma divide una data quantità in proporzioni tali che ogni 
gruppo di numeri dipende dalla somma di un gruppo. Prima dovete stabilire il 
numero di decimali desiderato, fino ad un massimo di tredici (se il vostro compu¬ 
ter lo permette). Introducete quindi il valore che deve essere ripartito, ed il numero 
di parti in cui deve essere diviso. Indi, introducete per ogni componente del 
gruppo la base su cui va fatta la ripartizione. Il programma fornisce una tabella 
che mostra le varie basi di ripartizione, la percentuale per ogni componente 
rispetto al totale di queste basi, ed il valore della quota da assegnare ad ogni 
componente. Alla fine esso mostra anche i totali delle tre colonne. 


Esempio 

Gli impiegati di una ditta ricevono un bonus complessivo di $ 30.000. Se ogni 
impiegato riceve una parte proporzionale al proprio salario quanto riceve ogni 
impiegato? 


Nome 

Salario 

Alberti 

$ 54000 

Burri 

$ 47000 

Campani 

$ 40000 

Deotto 

$ 33500 

Euri 

$ 29750 

Francioso 

$ 26000 

Giuliano 

$ 24500 

Holloway 

$ 21000 

lelmini 

$ 17500 

Johnson 

$ 15000 


Risposta: 

RIPARTIZIONE DI QUOTE 
INTRODUCI IL NUMERO DI FOSTI 
DECIMALI DI ARROTONDAMENTO CHE VUOI 
3 PER NUMERI INTERI, 1 SE DECIMI ECO. 

FINO A TREDICI'SE IL CALCOLATORE LO PERMETTE ) 
7 2 

INTRODUCI IL TOTALE DA RIPARTIRE 
00000 

INTRODUCI IL NUMERO DI FARTI 
? 10 

INTRODUCI LA QUOTA 1 
? 54006 

INTRODUCI LA QUOTA 2 
? 47000 
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INTRODUCI Lft QUOTO 3 
? 400O0 

INTRODUCI LO QUOTO 4 
? 335O0 

INTRODUCI LO QUOTO 5 
? 33750 

INTRODUCI LO QUOTO 6 
? 26000 

INTRODUCI LO QUOTO 7 
? 24500 

INTRODUCI LO QUOTO 8 
? 21000 

INTRODUCI LH QUOTO 3 
? 17500 

INTRODUCI LO QUOTO IO 
? 15000 



AMMONTARE 

PERCENTO 

QUOTE 


54000 

17.52 

5255.47 


47000 

15.25 

4574.21 


40000 

12.38 

3832.34 


33500 

10.87 

3260.34 


23750 

3.65 

2835.33 


26000 

8.43 

2530.41 


24500 

7.35 

2384.43 


21000 

5.81 

2043.8 


17500 

5.63 

1703.16 


15000 

4.85333333 

1453.86001 

TOT-ÌLI 

208250 

100.00 

20000 

ULTIMA ' 

VOCE APPROSSIMATA 

DOVE NECESSARIO 



Problemi pratici 

1. Un sindaco, in vista delle elezioni, vuole dividere il numero dei suoi 
rappresentanti nei sei distretti cittadini in base alla popolazione di ogni distretto. 
Egli ha 42 rappresentanti ed i distretti hanno la seguente popolazione: 1° distretto: 
29842, 2° distretto: 17420, 3° distretto: 14625, 4° distretto: 24314, 5° distretto: 
21209, 6° distretto: 18956. Quanti rappresentanti dovrà porre in ogni distretto? 

Risposta: 1° distretto: 10, 2° distretto: 6, 3° distretto: 5, 4° distretto: 8, 5° 
distretto: 7, 6° distretto: 6. 

2. Un vinaio ha 120 bottiglie di vino e vuole distribuirle ai suoi dipendenti in 
base all’anzianità (anni di lavoro), quante bottiglie dovrà dare ad ognuno? 


Nome 

Giovanni 

Romeo 

Livio 

Domenico 

Pietro 

Carlo 

Marco 

Berto 


Anni lavoro 

22 

18 

14 

8 

4 

2 

2 

1 
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Risposta: Giovanni: 37 bottiglie; Romeo: 30 bottiglie; Livio: 24; Domenico 
14 - Pietro: 7; Carlo e Marco: 3 bottiglie a testa; Berto: 2. 


Llstlng del programma 

.0 FRI UT "RIPARTIZIONE DI QUOTE" 

20 DIN lì d00) 

40 FRINT "INTRODUCI IL NUMERO DI POSTI" 

40 PRINT "DECIMALI DI ARROTONDAMENTO CHE VUOI" 

S0 PRINT "0 PER NUMERI INTERI, 1 SE DECIMI ECO." 

60 PRINT "FINO A TREDICI<SE IL CALCOLATORE LO PERMETTE) 
70 INPUT RI 

80 PRINT "INTRODUCI IL TOTALE DA RIPARTIRE" 

40 INPUT 32 

100 PRINT "INTRODUCI IL NUMERO DI PARTI" 

110 INPUT N 

119 REM INTRODUCI GLI AMMONTARI DI QUOTA UNO A UNO" 

120 FOR 1=1 TO N 

130 PRINT "INTRODUCI LA QUOTA";I 
140 INPUT A(I) 
l^O S1=S1+A(I) 

160 NEXT I 

170 PRINT,"AMMONTARE","PERCENTO","QUOTE" 

180 PRINT 

190 FOR 1=1 TO N-l 

2O0 P=INT< 10000*A< I )/SI +. 5)/100 

210 P1=P1+P 

220 R=INT<(S2*A<I)/Sl)#10t(Rl)+.5)/10T<Rl> 

230 S3=S3+R 

248 PRINT Rd),P,R 

250 NEXT I 

260 PRINT ,A<N>,100-P1,S2-S3 
270 PRINT 

230 PRINT "TOTALI",SI,"100.00",S2 
230 PRINT 

300 PRINT "ULTIMA VOCE APPROSSIMATA DOVE NECESSARIO" 

310 END 
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TASSO INTERNO DI RITORNO 


Il (QIR) tasso interno di ritorno (remunerazione), è il tasso che tiene conto 
del totale flusso di cassa e deH’ammontare dell’investimento iniziale. Il program¬ 
ma ricava tale tasso usando un sondaggio a metà intervallo. 

Per utilizzarlo introducete l’ammontare dell’investimento iniziale, il termine 
dell’investimento (in anni), ed il flusso di cassa per ogni anno. Introducete i flussi 
esterni (cioè i vostri investimenti) come numeri negativi. Per terminare il program¬ 
ma introducete zero come investimento iniziale. 

Il QIR può essere anche usato per trovare il prodotto della maturazione di 
una obbligazione, in questo caso, introducete il prezzo dell’obbligazione come 
investimento iniziale, il numero di anni di maturazione come periodo, considerate 
come flusso di cassa l’ammontare annuale dei coupon (totale ricevuto per anno), 
introducete inoltre il numero di coupon ed il valore dell’obbligazione nell’ultimo 
anno (anno in cui l’obbligazione sarà maturata). Il risultato del QIR è il prodotto 
della maturazione dell’obbligazione. 


Note al programma 

Il sondaggio a mezzo intervallo, dalla linea 320 alla 540, darà quote di ritorno 
comprese fra lo 0% e il 99%. Se tale campo non è sufficientemente largo per i vostri 
bisogni sostituite il valore iniziale della variabile L sulla linea 330 ed il valore della 
variabile H sulla linea 340. Questi sono i limiti inferiori e superiori dell’intervallo. 
Controllate che dopo la prima esecuzione della linea 370 il valore di (L+H)/2 non 
sia zero, ciò fornirebbe un risultato prematuro per l’algoritmo intervallo. 


Esemplo 

Bob ha l’opportunità di investire in una impresa. L’investimento iniziale è di 
$ 10.000, con un ritorno di cassa di: $ 4.000, $ 5.000 e $ 3.000 sui successivi tre anni. 
Egli richiede un tasso di ritorno del 15%. Deve accettare questo tipo di investi¬ 
mento? 

Risposta: No. Il QIR dell’investimento è del 10,1331%. Il criterio accetta/ri¬ 
fiuta dice di rifiutare ogni investimento il cui QIR sia minore del tasso di ritorno 
richiesto. 
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TASSO INTERNO DI RITORNO 

INTRODUCI LA SOMMA DELL' INVESTIMENTO INIZIALE (0 = FINE)? 10000 
NUMERO PERIODI DEI FLUSSI DI CASSA? 3 

IINTRODUCI LE ENTRATE COME SOMME POSITIVE, LE USCITE COME NEGATIVE) 
FLUSSO CASSA PERIODO 1 ? 4000 

2 ? 5000 

3 ? 3000 

TASSO INTERNO DI RITORNO* 10.1330S X 

INTRODUCI LA SOMMA DELL' INVESTIMENTO INIZIALE <0 = FINE)? 0 


Problemi pratici . 

Una nuova emissione di obbligazioni offre quote di coupon dell’8,25% e 
matura in 7 anni. Quale sarà il prodotto di maturazione di una obbligazione di $ 
10.000, se il prezzo è $ 8.500? 

Risposta: Il prodotto alla maturazione è dell’11,762%. 


Listlng del programma 


10 PRINT "TASSO INTERNO DI RITORNO" 

20 REM FUNZIONE DI ARROTONDAMENTO ALLE CENTINAIA 
30 DEF FNA(X)=INT<X*10O+.5)/100 
40 REM FUNZIONE DI ARROTONDAMENTO A DIECIMILA 
50 DEF FNB<X>=IHT<X#lE5+.5)/lE5 

SO REM CAMBIA LA DIMENSIONE DELL’' ORDINE CO SE NECESSARIO 
70 DIM C112) 

S0 PRINT 

30 PRINT "INTRODUCI LA SOMMA DELL' INVESTIMENTO INIZIALE <0 = FINE)"; 

100 INPUT I 

110 REM FINE PROGRAMMA? 

120 IF 1=0 THEN 590 
130 PRINT 

140 PRINT "NUMERO PERIODI DEI FLUSSI DI CASSA"; 

150 INPUT N 

ISO REM RICOMINCIA SE IL NUMERO DI FLUSSI DI CASSA NEL PERIODO NON E' VALIDO 
170 IF NC1 THEN 80 

180 REM CICLO DI INTRODUZIONE E SOMMA DEI TOTALI FLUSSO CASSA 
190 F=0 
20O PRINT 

218 PRINT "(INTRODUCI LE ENTRATE COME SOMME POSITIVE, LE USCITE COME NEGATIVE)" 

220 FOR J=1 TO N 

230 IF J>1 THEN 260 

240 PRINT "FLUSSO CASSA PERIODO"; 

250 GO TO 270 

260 PRINT " "; 

270 PRINT J; 

2S0 INPUT C<J> 

298 F=F+FNA(C(J)> 

200 HE!'T J 
?*0 PRINT 
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*20 REM VALORE INIZIALE 
7ÌO L=0 
340 H=1 

-zs R1=0 

ih REM LIMITE SUPPOSTO =<LIMITE SUPERIORE+LIMITE INFERIORE) /2 

'-70 r=<L+H.V2 

REM ESCE SE LA QUOTA RIMANE INVARIATA 
790 TF R=R1 THEN 550 

iÓO REM PONE L'ULTIMA SUPPOSIZIONE COME SUPPOSIZIONE CORRENTE 
41 ri R1=R 

4-0 REM SOMMA I VALORI PRESENTI PER OGNI ANNO BASATI SU UNA QUOTA DI R 

430 7=0 

>40 FOR - T =I TO N 

450 T=T+FNA<C<J>. •< <R+1 > tJ) ) 

4SO MEìiT J 

470 REM SE IL TOTALE DEI VALORI PRESENTI E''UGUALE ALL'INVESTIMENTO, ESCE 
iSC IF T=I THEN 550 

4 o 0 REM PONE IL LIMITE ALTO 0 BASSO ALLA SUPPOSIZIONE CORRENTE 

700 IF ISTTHEN 530 

51C L=R 

520 SO TO 370 

530 H=R 

540 OCTC 370 

570 PRINT 

*40 PRINT "TASSO INTERNO DI RITORNO="FNB<R#10O>; 

770 PRINT 
530 GOTO SO 
5?0 END 
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TASSO DI RITORNO “AMMINISTRAZIONE 
FINANZIARIA” (FMRR) 


Questo tasso di ritorno (remunerazione) differisce dal Q1R in alcune parti. 
Per alcuni investimenti, particolarmente nelle imprese statali, l’FMRR da un 
valore più realistico del valore fornito dal QIR. L’FMRR, considera il flusso di 
cassa dopo che sono stati considerati i finanziamenti e le tasse, ed ignora altre 
possibili sorgenti di fondi. 

Per usare il programma introducete il periodo dell’investimento (in anni), ed 
un tasso dell’investimento liquido. Questo tasso è una parte del fondo che può 
essere investito, è una parte garantita anche dopo la tassazione, introducete anche 
un tasso “sicuro” dell’investimento. Sicuro nel senso che tiene conto che il ritorno 
dell’investimento può essere sia minore che maggiore. L’investimento da compu¬ 
tare può essere sia un investimento statale che un altro tipo di investimento fisso 
con rischio calcolabile, ad esempio certificati di deposito o buoni del tesoro. 
L’investimento fisso ha un minimo ammontare che può essere investito. Introdu¬ 
cete anche questo ammontare. 

Il programma vi indicherà il momento in cui potrete investire dei fondi in 
investimenti liquidi o fissi, l’investimento iniziale che dovrete fare in quel momen¬ 
to (la differenza fra questa cifra e la cifra dell’investimento originale, può essere 
investita a tasso fisso all’inizio del primo anno), l’attuale totale di ritorno dell’in¬ 
vestimento, il tasso di ritorno totale scontato di questo investimento iniziale 
(FMRR). 

Esemplo 

Orazio progetta di comperare un appartamento. Il contratto richiede $ 
10.000 subito, e il pagamento di $ 50.000 da farsi nel prossimo e nei seguenti anni. 
Il flusso di cassa indica che alla fine del terzo anno e del quinto anno, Orazio si 
aspetta di ricevere $ 30.000 dall’investimento. Egli progetta di rimodernare la 
costruzione durante il quarto anno ad un costo stimato di $ 20.000. Infine, al sesto 
anno progetta di vendere la costruzione per $ 250.000. La quota di investimento 
possibile è del 5% e un investimento fisso minimo di $ 10.000 fa guadagnare come 
minimo il 10%. Qual è l’FMRR dell’investimento di Orazio? 

Risposta: 19,348% (Il QIR è del 25,2%). 
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rtmo DI RITORNO 'AMMINISTRAZIONE FINfiNZIARIA' 


NUMERO IN ANNI? ó 

TaSSO IH INTERESSE SULL'INVESTIMENTO LIQUIDO? 5 
TASSO DI INTERESSE 'SICURA ' SULL''INVESTI MENTO FISSO? 10 
AMMONTARE MINIMO DI INVESTIMENTO FISSO? 13000 

; INTRODURRE LE ENTRATE COME POSITIVE, LE USCITE COME NEGATIVE. 

INTRODURRE IL TOTALE DEL FLUSSO DI CASSA PER L'ANNO 3 ?-13000 

1 ?-50000 

_err< .-*« n 
— JUt'Uv 

3 ? 380O0 

4 O-23030 

5 ? 30000 
S ? 250000 


UN INVESTIMENTO LIQUIDO DI f. 10047 
DEVE ESSERE RATTO ALLA FINE DELL' ANNO S 

UN INVESTIMENTO FISSO DI L. 10052 
DEVE ESSERE FATTO ALLA FINE 
DELL-' ANNO 3 

UN INVESTIMENTO FISSO DI L. 3000O 
DEVE ESSERE FATTO ALLA FINE 
DELL' ANNO 5 

TOTALE INVESTIMENTO INIZIALE ANNUALE = T. 182971 
RITORNO TOTALE DELL INVESTIMENTO = t. 207577 

QUOTA DI RITORNO "AMMINISTRAZIONE FINANZIARIA- = 19.343 11 

VUOI RIUTILIZZARE QUESTO PROGRAMMA CON NUOVI DATI ? <S/N> 
? N 


Problemi pratici 

1. Qual è FFMRR su una proiezione di sei anni se il tasso liquido è del 7,25%, 
il tasso è 15% (per un investimento minimo di $ 10.000) e l’investimento iniziale è $ 
100.000? Il flusso di cassa è: $ 30.000 in entrata il 1° anno, $ 45.000 in uscita il 2° 
anno e $ 50.000 in entrata durante ognuno dei successivi quattro anni? 

Risposta: L’FMRR è 11,783%. 

2. Un investimento a quattro anni richiede $ 10.000 iniziali ed ha un flusso di 
cassa di: - $ 2.500, $ 5.000,-$2.500 e $25.000 durante il termine, qual è l’FMRR?Il 
tasso liquido è dell’8,5% e un investimento fisso minimo di $ 1.000 ritorna al 
minimo il 13%. 

Risposta: L’FMRR è del 23,303%. 
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Listing del programma 

IH PRINT "TASSO DI RITORNO 'AMMINISTRAZIONE FINANZIARIA'" 
io rJEM FUNZIONE DI ARROTONDAMENTO ALLE MIGLIAIA 
DEF FNB(X>=INT(X*1E3+. 5V1E3 

40 REM — RIDIMENSIONA LA MATRICE CO AL NUMERO MASSIMO DI ANNI 
S0 DIM C<12> 

50 PRINT 

70 PRINT "NUMERO DI ANNI"; 

50 INPUT N 

PRINT "TASSO DI INTERESSE SULL'INVESTIMENTO LIQUIDO"; 
j00 INPUT RI 
110 R1=R1.'100+1 

}?0 PRINT "TASSO DI INTERESSE 'SICURA' SULL'INVESTIMENTO FISSO"; 

130 INPUT R2 
140 R2=R2,' 10O+1 

150 PRINT "AMMONTARE MINIMO DI INVESTIMENTO FISSO"; 

160 INPUT M 
170 PRINT 

150 PRINT "(INTRODURRE LE ENTRATE COME POSITIVE.. LE USCITE COME NEGATIVE. >” 
1*50 PRINT 

?00 PRINT "INTRODURRE IL TOTALE DEL FLUSSO DI CASSA PER L'ANNO 0 

910 INPUT C0 

920 FOR J=1 TO N 

230 FRINT " ";J; 

240 INPUT C(J> 

250 NEXT J 
260 PRINT 

270 REM TOGLIE TUTTE LE USCITE FUTURE UTILIZZANDO 
286 REM PRIORITÀ' ALLE ENTRATE DOVE POSSIBILE 
290 REM 

300 REM PRIMA, TROVA LE USCITE 
310 FOR J=1 TO N-l 

320 REM SLITTA OLTRE ENTRATE E TOTALI NULLI 
330 IF C(j;O=0 THEN 520 
340 REM TROVA LE USCITE 
350 A=C(J> 

360 REM ORA TROVA LE ENTRATE PRIORITARIE 
370 K=0 
300 K=K+1 

390 IF K=J THEN 520 
400 IF C(J-KK=0 THEN 380 
410 REM TROVA L' ENTRATA, TOGLIE I TOTAL 
420 C<J-K)=C<J-K>+INT<R/R11K> 

430 IF C(J-K)3=0 THEN 490 

440 REM SE NON C'E' ABBASTANZA DENARO, CORREGGE A ZERO 
450 A=A+1NT(ABS(C(J-K> > *R1tK > 

460 C(J-K>=0 
470 C<J>=R 
4S0 GOTO 500 
490 C(J>=0 

"UN INVESTIMENTO LIQUIDO DI t. INT<ABS(A/R14K>> 

"DEVE ESSERE FATTO ALLA FINE DELL' AHNO";J-K 


NECESSARI I PER AZZERARE SE POSSIBILE 


ENTRATA 


500 PRINT 
510 PRINT 
520 NEXT J 
530 PRINT 

540 REM SCONTA LE USCITE RESTANTI AL PRESENTE ALLA QUOTA DELL' 

550 FOR J=1 TO N-l 

560 IF C <J»=0 THEN 590 

570 C0=CO +FNB(C<J.VR1 TJ> 

580 C(J>=0 
590 NEXT J 

600 C0=INT(AB:S<C0)+.5> 

610 REM APPROSSIMA DIRETTAMENTE TUTTE LE ENTRATE MAGGIORI 

620 REM DEL MINIMO INVESTIMENTO FISSO 

630 FOR J=S TO N-l 

640 IF CCJXM THEN 670 

650 C(N3=C<H>+FNB(C<J)*R2t(N-J> 


INTERESSE 
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660 PRIMT"UM INVESTIMENTO FISSO DI L.";C<J> : FRINT"DEVE ESSERE FATTO ALLA FINE" 
662 PRINT "DELL' ANNO";J 
670 NEXT J 
630 PRINT 

690 C < N >=I NT ( AES CC < N> >+. 5 > 

700 PRINT "TOTALE INVESTIMENTO INIZIALE ANNUALE = t. ";CO 
710 PRINT "RITORNO TOTALE DELL' INVESTIMENTO = t. "C<N> 

720 REM INIZIALIZZA SUPPOSIZIONI INFERIORI E SUPERIORI, AZZERA LE INFERIORI 

730 L=0 

740 H»1 

750 R0=0 

760 R=<H+L>.'2 

770 REM ESCE SE IL TASSO RESTA INVARIATO 
780 IF R-RO THEN 910 

790 REM PONE IL LIMITE INFERIORE COME SUPPOSIZIONE CORRENTE 
300 R0=R 

SIO REM CALCOLA IL VALORE PRESENTE DEL VALORE FUTURO BASANDOTI SULLA QUOTA DI R 
328 T=INT<C<N\’< <R+1 > TtO > 

330 REM SE IL VALORE PRESENTE EGUAGLIA L' INVESTIMENTO, ESCE 
340 IF T=C0 THEN 910 
350 IF T>CO THEN 890 

360 REM PONE LA SUPPOSIZIONE SUPERIORE C INFERIORE COME SUPPOSIZIONE CORRENTE? 

370 H=R 

338 GOTO 760 

390 L=R 

900 GOTO 760 

910 PRINT 

920 PRINT "QUOTA DI RITORNO AMMINISTRAZIONE FINANZIARIA' =";FNB<R#100>."Z" 

930 REM RIFARTI 0 TERMINI IL PROGRAMMA? 

940 PRINT 

950 PRINT "VUOI RIUTILIZZARE QUESTO PROGRAMMA CON NUOVI DAT! ? '3. ’N; 

960 INPUT Z t 
970 IF Zì="S" THEN 68 
980 IF ZTC "N" THEN 950 
990 END 
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ANALISI DI QUOTE DI POSIZIONE 
FINANZIARIA 


Questo programma calcola 22 quote di interesse per un investitore, sulla base 
dei dati introdotti che definiscono lo stato finanziario di una ditta. Esso indica il 
profitto di una ditta, la liquidità, l’attività e la struttura del capitale. Voi dovrete 
solamente confrontare le quote di una ditta con altre della stessa industria, o con 
quelle di una media industria. 

Per usare il programma introducete il nome della ditta che volete controllare, 
i dati dello stato finanziario e i totali selezionati in dollari. Introducete anche il 
numero di quote comuni non pagate, segnate il prezzo per quota ed i dividendi 
pagati a quota. 


Esemplo 


Jim vuole investire in una emissione di azioni di una industria di equipaggia¬ 
menti per computer. Lo stato finanziario della ditta è mostrato in seguito. La 
Wimpytron ha 7000 quote di azioni non pagate ad un prezzo marcato di $ 17,50 
per quota. Dal luglio 1979 al giugno 1980 sono stati pagati agli azionisti dei 
dividendi di $ 1,25 


WIMPYTRON Ine. 
Bilancio al 1 luglio 1980 
(Figure in migliaia di dollari) 


ATTIVITÀ' 


PASSIVITÀ' 


Cassa 

$ 50 


Acconti Pagabili 

$ 75 


Conti Correnti Ricevuti 

$ 100 


Note Pagabili 

$ 155 


Sicurezza di Mercato 

$ 20 


Totale Passività correnti 


$ 230 

Inventario 

$ 200 





Tot. Attività Corrente 


$ 370 

Debiti Lungo Termine 


$ 190 




PASSIVITÀ' DI VECCHIE 






AZIONI 



Impianti ed 






Equipaggiamento 

$ 500 


Azioni Comuni 

$ 40 


Meno: Deprezzamento 

$ 30 


Guadagni Trattenuti 

$ 380 


Totale Attività Fis. 


$ 470 



$ 420 

TOTALE ATTIVITÀ' 


$ 840 

TOTALE PASSIVITÀ’ 


$ 840 
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WIMPYTRON Ine. 

Stato del Reddito al 1 luglio 1980 
(figure in migliaia di dollari) 


Vendite nette $ 985 

Costo di vendita 
Inventario iniziale $ 380 

Acquisti $ 200 

Meno: Inventario finale $ 200 

Totale Costo Vendite $ 380 

Grosso Margine $ 605 

Spese Vendita $ 150 

Spese generali 

e Amministrative $ 220 

Spese di interesse $ 70 

Totale Spese $ 440 

Reddito prima delle Tasse $ 155 

Reddito Tasse $ 78 

Guadagno netto dopo Tasse $ 73 


Analizzate questa ditta? 


Risposta: 


"EtIEITE tiETTE 

ANALISI "'JOTE POSIZIONE FINANZIARIA 

NOME CELLA DITTA? WIMPVTRON INC. 

3TORNO. 'MESE.'ANNO? 1 LUGLIO ISSO 

-STATO DEL REDDITO- 

INTRODUCI I TOTALI PER' 

VENDITE NETTE? 285000 
INVENTARIO INIZIALE? 230000 
INVENTARIO FINALE? 200000 
VALORE MERCI VENDUTE? 280000 
INTERESSE SPESA? 70600 
REDDITO PRE-TASSE? 155000 
TASSE?' 77000 

-FOGLIO DI BILANCIO- 

INTRODUCI I TOTALI PER' 

CASSA? 50000 
CONTI CORRENTI? 100000 
"ITOLI COMMERCIABILI" 20000 
TOTALI ATTIVITÀ"? 340000 
-ASSIVITA' CORRENTI? 230000 
AZIONI ORDINARIE? 420000 

INTRODUCI ANCHE 

AZIONI NON PAGATE? 7000 
PREZZO DI MERCATO PER AZIONE? 17.5 
DIVIDENDI PACATI? 1.25 

-VALUTAZIONE DELLA WIMPVTRON INC.CON ANALISI QUOTE- 

FINE PERIODO 1 LUGLIO l?SO 
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-PROFITTI- 

RITORNO SULL'ATTIVITÀ' .092 1 

RITORNO SOLLE AZIONI ORDINARIE .ISO 1 

ritorno sol capitale investito 12.6 

GUADAGNO PER AZIONE I. 11 
QUOTA OPERANTE .S43 1 


-LIQUIDITÀ'- 

CAPITALE NETTO OPERANTE 
•-■UOTA PER TEST ACIDO < SUI CIO 
QUOTA CORRENTE 


t. 140000 
. reo • ì 
1.609 :1 


-ATTIVITÀ'- 

VENDITE AL GIORNO f. 2698.63 
GIORNI DI VENDITA NON PAGATI 37.056 GIORNI 
TURN-OVER INVENTARIO 1.3! VOLTE 


-INDEBITAMENTO- 

interesse creditori della ditta so ;; 

VOLTE INTERESSE GUADAGNATO 4.329 
DEBITO LUNGO TERMINE CAP.NETTO .452 1 

DEBITO LUNGO TERMINE CAP. .311 '1 

-EQUITÀ'- 

INTERESSI AZIONISTI DITTA 50 II 

QUOTA DI PAGAMENTO .114 '1 
GUADAGNI FRUTTATI 62.9 
VALORE CONTABILE/AZIOHE t. 60 
RAPPORTO PREZZO.'GUADAGNO 1.591 ■ 
DIVIDENDI FRUTTATI 7.1 11 


DEBITO 


SULLE 


AZIONI 


ORDINARIE 


VUOI UN'ALTRA ANALISI (S/N) 
? N 


Problemi pratici 

1. Supponendo un cambiamento del bilancio precedente, ed esattamente 
considerando un debito a lungo termine di $ 220.000 e una passività delle vecchie 
azioni di $ 390.000. Quali quote cambieranno e quali saranno i nuovi valori? 

Risposta: Ritorno sulle azioni ordinarie 19,7%; Interesse creditori 53,6%; 
Debito/azioni ordinarie 1,154:1; Debito a lungo termine su netto operante 
0,564:1; Debito a lungo termine su capitale 0,361:1; Interesse vecchie azioni 
46,4%; Quota di pagamento 0,077:1; Valore contabile $ 55,714; Dividenti prodot¬ 
ti 4,9%. 

2. Se si scambia il totale degli acconti ricevuti con il totale di cassa, quali 
quote cambiano e quale è il loro nuovo valore? 

Risposta: I giorni di vendita non pagati diventano 18,528. Tutti gli altri valori 
restano invariati. 


Listing del programma 

10 PRINT "ANALISI QUOTE POSIZIONE FINANZIARIA" 
20 DIM D<28> 

30 REM 

40 REM D<1> ="ENDITE NETTE 
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30 REM D<2> «INVENTARIO INIZIALE 

50 REM IK3> «INVENTARIO FINALE 

~0 REM D44) «VALORE MERCI VENDUTE 

50 REM B<5> «INTERESSE SPESA 

30 REM B<6> «REDDITO PRE-TASSE 

180 REM B<7) «TASSE 

118 REM D<8) «CASSA 

128 REM D<3) «CONTI CORRENTI 

138 REM D<18) «TITOLI COMMERCIABILI 

148 REM DOl) «TOTALI ATTIVITÀ' 

138 REM B(12) «PASSAVITA' CORRENTI 

ISO REM D(l?) «AZIONI ORDINARIE 

178 REM D<14) «AZIONI NON PACATE 

1S0 REM D<15) «PREZZO DI MERCATO PER AZIONE 

198 REM D(1S) «DIVIDENDI PAGATI 

280 REM 

218 DATA"VENDITE NETTE","INVENTARIO INIZIALE","INVENTARIO FINALE" 

220 DATA"VALORE MERCI VENDUTE",“INTERESSE SPESA","REDDITO PRE-TASSE" 

230 DATA"TASSE","CASSA","CONTI CORRENTI","TITOLI COMMERCIABILI" 

248 DATA"TQTALI ATTIVITÀ'","PASSIVITÀ' CORRENTI","AZIONI ORDINARIE" 

238 DATA"AZIONI NON PAGATE","PREZZO DI MERCATO PER AZIONE","DIVIDENDI PAGAT 
2S0 PRINT 

£90 PRINT " NOME DELLA DITTA"; 

308 INPUT Ni 

318 PRINT " 01ORNO. 'MESE/ANNO 11 ; 

328 INPUT Di 

330 REM INTRODUCI I TOTALI DELLO STATO DI REDDITO 
340 RESTORE 

350 PRINT ”-STATO DEL REDDITO-" 

060 PRINT "INTRODUCI I TOTALI PER " 

370 FOR I=i TO 7 
3S8 003UD1628 
330 NEXT I 

488 REM INTRODUCI I TOTALI DEL FOGLIO DI BILANCIO 

418 PRINT "-FOGLIO DI BILANCIO-" 

428 PRINT "INTRODUCI I TOTALI PER'" 

430 FOR 1=8 TO 13 
448 GO3UB1620 
438 NEJ'T I 
460 PRINT 

470 PRINT "INTRODUCI ANCHE “ 

480 FOR 1=14 TO 16 
430 G0SUB1S20 
308 NEXT 1 
310 PRINT 

320 PRINT "-VALUTAZIONE DELLA *;N$;"COM ANALISI SCOTE-" 

530 PRINT "".."FINE PERIODO ";D$ 

348 PRINT 

550 PRINT -PROFITTI-“ 

568 TÌ="RITORNO SULL'ATTIVITÀ'" 

C"?Q 

580 XÓ=<D(6)-D(7)),'D<11) 

530 GOSUB1670 

500 Ti="RITORNO SULLE AZIONI ORDINARIE" 

610 X0=<B<6)-D<7))/D<13) 

628 GOSUB1670 

530 Ti»"RITORNO SUL CAPITALE INVESTITO" 

548 XI=2 

550 X0='D(6)-D<7)),'<Dai ) -D(12) ^ 

558 GOSUB1570 

578 T4="GUADAGNO PER AZIONE" 

5S0 XI=3 

530 X0=<D<6)-D<7)).’D< 14) 

700 G0SUB1570 

710 Ti="QUOTA OPERANTE" 

720 Xl=l 

730 X0=<D'1)-D<6)).'D<1) 

740 GOSUB1670 
750 PRINT 

760 PRINT"","-LIQUIDITÀ'-" 
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,, 0 T f="COPITALE NETTO OPERANTE" 

I|2 pEM'CALCOLA L'ATTIVITÀ' CORRENTE 
-i=IK3> +P<9>+»< 10>*B<3> 
t?S 9EM CALCOLA IL DEBITO A LUNGO TERRINE 
|ig i 1 >-!>< 12>-2>< i3> 

1 ;C“C i -d<12 > 
ciò GOSUB1670 

Ì50 7f="QUOTA PER TEST ACIDO I SUI CIO" 


PÌ XÓ^<CI-D<3».'DC12> 


JpO 00SUBIS7S 

5o0 Tt="C!UOTA CORRENTE" 

iÓO ?I0=CI.'B<12> 

o'o "OSUE1670 

Vie PRINT 

i'O PRINT "", "-ATTIVITÀ'-" 

343 TT="VENDITE AL GIORNO" 

350 >11=3 

ogg XO=D'. IX'365 

ire G0SUB1670 

3S3 T T="GIORNI DI VENDITA NON PAGATI" 

?30 >11=0 

; eoe X0=B<3X'<B< 1 >.'365.'' 

1010 3OSUB1670 
1020 PRINT "GIORNI" 

1330 REM SE NON HA DATI INVENTARIO SALTA ALLA STAMPA 
1040 IF D<2>+D<3>=0 THEN 1030 


1050 Tt="TURN-OVER INVENTARIO" 

1 OSO X0=D<4>.'«D<2> +D<3>>.'£> 
loro GOSUB1670 
108O PRINT "VOLTE" 

1^30 PRINT 

noe PRINT -INDEBITAMENTO-" 

1110 Tt="INTERESSE CREDITORI DELLA DITTA" 

1120 Mo¬ 
lise >i0=<D<!l>-D<13>>/r<ll> 

1140 GOSUB1670 

1150 Tf="VOLTE INTERESSE GUADAGNATO" 

USO XI =0 

1170 X0=<D<6>+B<?>+D<5>VD<5> 

11S0 GOSUB1670 

1130 Tf="DEBITO SULLE AZIONI ORDINARIE" 

1200 >:i=i 

1210 M0= < D < 11 > -D < 13 > >/D ( 13 > 

1220 GOSUB1670 

1238 TT="DEBITO LUNGO TERMINE CAP.NETTO" 


1248 X0=L0.'D<13) 

1250 GOSUB1670 

1260 TI="DEBITO LUNGO TERMINE CAP." 


1270 NO=L0,'<L0+D<13)) 
12S0 GOSUB1678 


1380 PRINT"","-EQUITÀ'-” 

1010 Tt="INTERESSI AZIONISTI DITTA" 
1320 Xl=2 

1330 X8=<D<13>.VB<11> 

I340 GOSUB1678 


1350 Tt= "QUOTA DI PAGAMENTO" 

1360 ;;i=i 

1370 >'0=D<16X' , < <B<6>-B(7)XTK14>) 

1CS0 GOSUB1678 

1330 TT="GUADAGNI FRUTTATI" 

1400 NI=2 

1410 N0=<<D<6)-B<?>>.TK14>VD<15> 
1420 GOSUBÌ670 

1430 Tt="VALORE CONTABILE/AZIONE" 
1448 XI=3 

1450 X0=B( 13>,'B( 14> 

1468 GOSUB1670 

1478 T#=“RAPPORTO PREZZO.'GUADAGNO" 
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: 450 

i 4.-8 M0=B<15.V< <D<6>-D<7> )/D< 14> > 

'.TOC 00SUB1S78 

ITI? 74="DIVIDENDI FRUTTATI" 

:tic mi =2 

:T3C X8=D(1«VD<15> 

1540 COSUB1É70 
1550 FRINÌ 

1560 PRIMI "VUOI UN'ALTRA ANALISI <S/N>“ 

1378 INPUT T t 
ITC0 IF TT="S" THEN 280 
1590 IF T*0”N" THEN 156Q 
:«O0 GOTO 1840 

:£10 REM SOTTOPROGRAMMA DI INTRODUZIONE TEI DATI 
1 £20 READ TP 

1 EOO PRIMI TAE'31 -LENITITf.■ 

I£40 INPUT D< I> 

1 STO RETURN 

ISSO REM SOTTOPROGRAMMA DI STAMPA QUOTE « DATI TURN-OVER 
li78 PRIMI TfiD<31-LEN<T»»;TT; 
isse ;:c=i nt i no# 1000+.svi000 

lTOC REM FORMATO RAPPORTO SE XI=1 

iTse :f mi=i then 1730 

l'io REM FORMATO RAPPORTO SE XI=2 

1720 IF NI-2 THEN 1300 

1720 REM FORMATO LIRE SE Xl=3 

I"48 IF NI=3 THEN 1320 

1738 REM NESSUN FORMATO SE XI=0 

I7E0 PRIMI NO; 

1778 RETURN 
17SC PRIMI NO;"'1" 

1730 RETURN 
1380 PRIMI N8*100; 

1S18 RETURN 
1320 FRINT " t. ";N0 
1330 RETURN 
1348 END 


Bibliografia 

Slavin, Albert e Reynolds, Isaac. BasicAccounting(3‘ ed.). Hinsdale, Il 1 .: Dryden 
Press, 1975. 

Solomon, Ezra. An Introduction to Financial Management. Santa Monica: Good¬ 
year Publishing Company, 1977. 
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PARTECIPAZIONE Al PROFITTI 


Questo programma calcola la partecipazione agli utili per un numero di 
partecipanti che può arrivare fino a 250. Nel progetto alcune quote di profitto non 
sono integrate, cioè, il contributo dato da ogni impiegato è strettamente propor¬ 
zionale al suo salario. Se il compenso è del 5% del compenso totale di tutti i 
partecipanti, egli avrà assegnato il 5% del contributo totale per quell’anno, e così 
via. 

Il profitto integrato, è, invece, meno diretto. In questo caso, si prende come 
livello integrato un livello salariale che non supera la base del salario, base che 
viene fissata secondo un valore corrente sociale di sicurezza (negli esempi tale 
valore è fissato a $ 22.900 per il 1979 e a $ 25.900 per il 1980). Ogni impiegato il cui 
stipendio supera il livello integrato, riceve una percentuale (non superiore al 7%) 
dell’ammontare del suo guadagno eccedente il livello integrato. Il rimanente dal 
contributo totale viene distribuito proporzionalmente nel salario. Se la porzione 
integrata supera il totale, essa viene ridotta proporzionalmente. Quando ciò 
accade tutti quelli che hanno un salario minore del livello integrato non ricevono 
nulla. 

Questo programma considera sia i piani integrati che quelli non integrati fino 
ad un numero di 250 partecipanti. Introducete come prima cosa il nome ed il 
salario di ogni impiegato/partecipante. Dopo il nome dell’ultimo impiegato ed il 
suo salario, non introducete nulla per il nome e -1 per il salario quando il 
programma vi chiederà il successivo nome e salario. Il programma fornisce il 
totale del salario ed il limite del 15% sui contributi. Introducete, quindi il totale del 
contributo come frazione decimale del compenso totale. Dite se il piano è integra¬ 
to, e se lo è, qual è il livello integrato e qual è la sua percentuale. 

Vi verrà fornita una tabella la quale riporta il nome dell’impiegato, il salario 
ed il totale della sua assegnazione. Le assegnazioni vengono, inoltre divise in 
porzioni integrate e non integrate. Il programma fornirà, inoltre, il totale per tutti 
gli impiegati e vi permetterà di effettuare cambiamenti di alcuni o di tutti i dati. 

Esemplo 

I seguenti impiegati sono tutti partecipanti in un piano di quote di profitto: 


Nome 

Salario 

Castoldi 

$ 150000 

Johnson 

$ 22900 

Simone 

$ 15000 

Jones 

$ 12000 

Bielli 

$ 10000 
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Assumendo che il contributo della compagnia sia del 15%, quale assegnazio¬ 
ne deve essere fatta ad ogni impiegato se il piano non è integrato? 


Risposta: 

ERTECI FAZIONE AI PROFITTI CONTRIBUENTI 
INTRODUCI NONE E SALARIO PER OGNI IMPIEGATO 
INTRODUCI -1 COME SALARIO PER FINIRE L'INTRODUZIONE 
- CONNELL, 150000 
? JOHNSON, 22300 
? SMITH, 15000 
? JONES, 12000 
? BROUN, 10000 
? A, -1 

TOTALE COMPENSI = 209900 
LIMITAZIONE DEL 15?; = 31485 
CONTRIBUTO P/S N COME DECIMALE = 


IL PIANO 

? N 

E' INTEGRATO? <S/N> 




PORZIONE 

PORZIONE 


NOME 

SALARIO 

INTEGRATA 

NON-INT. 

TOTALE 

CONNELL 

150000 

0 

22500 

22500 

JOHNSON 

"'2A00 

0 

3435 

3435 

SMITH 

15000 

0 

2250 

2250 

JONES 

12000 

0 

1800 

1300 

BROUN 

10000 

0 

1500 

1500 

TOTALI 

2G9900 

0 

31435 

31485 


VUOI SALARI DIFFERENTI? IS/N) 

? N 

CONTRIBUTI DIFFERENTI ? CS.'IO 
? N 

CAMBI DOVE INTEGRATO ? <3/N> 

? N 

DIFFERENTE LIVELLO DI INTEGRAZIONE <S/N> 
? H 

DIFFERENTE INTEGRAZIONE M ? <S/N> 


Problemi pratici 

1. Per lo stesso gruppo di impiegati quale sarà l’assegnazione in un piano 
integrato al 3% su $ 15.000? 

Risposta: Castoldi: $ 23.486,40; Johnson: $ 3.204,29; Simone: $ 1.943,64; 
Jones: $ 1.554,91; Bielli: $ 1.295,76. 

2. Se il piano è integrato al 7% su $ 22.900, quale sarà l’assegnazione per gli 
stessi impiegati? 

Risposta: Castoldi: $ 25.038,97; Johnson: $ 2.464,34; Simone: $ 1.614,20; 
Jones: $ 1.291,36; Bielli: $ 1.076,13. 
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Listlng del programma 

C PRIMI "PARTECIPAZIONE AI PROFITTI CONTRIBUENTI" 
i PPM FUNZIONE af fotondament 0 
’in DE C FHRCX>«IHT<100MI+.5? ICO 
TiiM A*<230>/B<£58>,CC250J,IK2?8> 

ORIMI "INTRODUCI NOME E SALARIO PER OGNI IMPIEGATO'' 

Ì4Ó FRIUT "INTRODUCI -• COME SALARIO PER FINIRE LINTRODUZIONE" 

:óo !=0 

ICO - T =l 

.rf, INPUT akj>.- ?(’:■ 

ISO IF THEN 240 

; -3£< K=K*-BC 

eòo »1 

?;f, GOTO ITO 
240 I=>1 

;=f, PRIMI "TOTALE COMPENSI =":K 

?«À CRINI "LIMITAZIONE DEL 15Ji =";FNRM5*K> 

?70 PRINT “CONTRIBUTO F'.'E COME DECIMALE =" 

?S3 INPUT M 

~ÌQ IF MI=1 THEN 270 

■35 IF M>0 THEN 270 

•00 PRINT "IL PIANO E' INTEGRATO' 

310 INPUT V* 

3'0 IF Vf="N" THEN 540 

330 IF V»::"S" THEN zoo 

-<60 PRINT "LIVELLO INTEGRAZIONE*" 

370 INPUT L 

330 PRINT "INTEGRACIOt!C COME DECIMALE = " 

400 INPUT P 

4G0 H=0 

439 REM CALCOLA LA PORZIONE INTEGRATA FEF: OGNI IMPIEGATO 

440 FOF: 1=1 TO J 

450 IP B'IML THEN 460 
453 CCI>=0 
456 GOTO 498 

460 C<I>=FHR<R*<?<I>-L>> 

470 3=S*i 
4S0 h=h+c<i: 

430 HEKT I 

500 IF HZMfK THEN 650 
510 IF HIM*K THEN 520 
512 POR 1=1 TO J 
514 D<I>=8 
516 NENT I 
510 GOTO 760 
520 R=0 
530 T=0 

539 REM RIDUCE L'AMMONTARE INTEGRATO AL CONTRIBUTO TOTALE 

540 FOF: 1 = 1 TO J 

550 IF C\I>8 THEN 620 
560 T=T+! 

570 IF T=3 THEN 610 
588 C •' I > =FNR< C < I > *M*K.'H > 

530 F:=R+C ■. I ■ 

508 GOTO 620 
618 C<I>=M*K-R 
520 NE'.T I 
e- 38 GOTO 768 
548 H=8 

542 FOR 1=1 TO » 

544 C1I>=0 

546 ne::t i 

558 G=M-H,t: 

563 REM CALCOLA LA PORZIONE NON INTEGRATA 
578 FOR 1=1 TO J 
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590 D < I =FNR i E < I > ♦ 0 > 

720 NEX7 I 
760 8=0 
770 '1=0 

780 PRINT,,*PORZIONE",“POPEIONE" 

'30 PRINT "NOME" "SALARIO", ”INTEGRATO" "NOtl-INTEOR. “TOTALE 
'33 REM STAMPA I RISULTATI 
300 POR 1=1 TO 1 

sso ì;=»«-c<r -p<i 

330 a=Q*D<I> 

340 FRI NT A*Il>,EU3 C 11>,D<1 >, C 11;-K5<I> 

350 NE"T I 

355 PRINT 

360 PRINT "TOTriL 

370 IP H3=M*K THE» 300 

300 PRINT H, 

390 GOTO 310 
300 PRINT NHH■ 

310 PRINT Q..- 
320 PRINT 

330 PRINT 'VUOI SALARI DIFFERENTI' •73.fi)" 

340 INPUT 2f 

950 IF 2f=“2" THEN 120 

360 PRINT "CONTRIBUTI DIFFERENTI ? :3.'N>“ 

370 INPUT IT 


980 ] 

IF 24=‘ 

' ~ " " 

''Un _ 

170 


390 ; 

PJ IjT ' 

■cr.ru 

:l re. 

2 INI 

EQpftTo •c/n:-" 

1010 

INPUT 

2t 




1020 

if zr= 

: “ “ " 

THEN 

300 


! 03O 

PRINT 

"PIFFERO 

iT r LI 

'■•ELEO r-I IM-EOFAZIONE 

1040 

INPUT 

Zi 




1 05O 

IF Zt~- 

: " •: " 

THEN 

3£0 


1060 

rr I NT 

"SIFFEREf 

-TcIL- 

TcGFAZIONE P 'S.H>* 

1070 

INPUT 

i? 




1080 

IF Zt- 


T-Ei 1 

390 


1090 

END 






Bibliografia 

U.S. Internai Revenue Service Code, Section 401-04. 
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riassestamento libro di CONTROLLO 


Questo programma può evitarvi un pesante lavoro quando dovrete riassesta- 
re jl vostro esame contabile. Dato che il computer fornisce tutte le somme e le 
sottrazioni l’esame risulta molto semplificato. 

Introducete il bilancio finale della vostra società, indi ogni deposito o credito 
fatto dalla data societaria. Dopo aver introdotto tutti i depositi e i crediti non 
pagati, introducete zero. Ciò indica al programma di passare alla successiva 
sezione, introduzione degli assegni non pagati. Introducete l’ammontare degli 
assegni o l’ammontare di altri debiti depositati, e quindi introducete zero, quando 
tutti gli assegni ed i debiti non pagati sono stati introdotti. 

Introducete solo totali positivi per ogni risposta. L’unica eccezione è per i 
totali dei vostri precedenti bilanci e per il vostro esame di bilancio che potrete 
introdurre come negativi. 

Se il vostro profitto non è in bilancio, esaminate tutte le vostre entrate per 
essere sicuri che esse siano complete e corrette. Controllate nel vostro registro di 
assegni il totale degli assegni emessi. Avete introdotto tutti gli assegni, i depositi, i 
debiti e i crediti automatici? Se non trovate nessun errore chiamate la vostra 
banca. 


Esemplo 

Il controllo contabile della società di Janet, non mostra il pagamento di 
assegni per un totale di $ 600,00, questi assegni sono stati depositati ieri. Essa deve 
anche ricevere due assegni che non compaiono nel controllo: uno di $ 87,32, e uno 
di $ 250,00. Se il bilancio finale della società è: $ 348,55, e il controllo di registro di 
Janet mostra un bilancio di: $ 614,54, ed i carichi di servizio sulla società sono di: $ 
3,31, Quale è l’aggiustamento del bilancio? Il conto di Janet è in bilancio? 

Risposta: L’aggiustamento di bilancio è di $ 611,23. Il conto di Janet è in 
bilancio. 

-IASSESTAMENTO. LIBRO DI CONTROLLO 

01'AL 'E' IL BILANCIO FINALE DELLA SOCIETÀ'? S4S.5C 

INTRODUCI L'AMMONTARE DI OGNI DEPOSITO NON COMPRESO NEL BILANCIO 
: 0 QUANDO TUTTI I DEPOSITI NON PAGATI SONO STATI INTRODOTTI) 

? eoe 

? 0 

INTRODUCI L'AMMONTARE DI OGNI ASSEGNO NON COMPRESO IN BILANCIO 
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0 annuso TUTTI I r-EFOSITI noti PAGATI SONO STATI INTRODOTTI) 

■■ op 

Z5Ó~~ 

"• 9 

2ILANCI0 TOTALE = t. ili.OS 

INTRODUCI IL SILANCIO BEL TUO REGISTRO? 514.54 
INTRODUCI IL TOTALE DEL CARICO SERVIZI? MI 

21LANCIO TOTALE AGOIUSTATO = t. SII.SO 

DESIDERI - ! UT ILI ZZARE CUESTO PROGRAMMA CON NUOVI DATI '.S.'ìi'T N 

Problemi pratici 

1. Il bilancio finale di una società è di $ 352,13. In questo bilancio non 
compaiono tre depositi di $ 100,00 ognuno, e sei assegni rispettivamente di: $ 
159,21, $ 25,00, $ 14,75, $ 29,54, $ 45,67 e $ 22,50. Qualè il bilancio contabile? 11 
bilancio di controllo di libro è di $ 358,97.1 carichi di servizio sono di $ 3,51. Qualè 
il bilancio contabile riaggiustato? Il conto deve essere bilanciato? 

Risposta: Il bilancio contabile è $ 355,46. Quello riaggiustato è $ 355,46. Il 
conto è in bilancio. 

2. Il bilancio finale di una società è - $ 17,39. Un deposito di $ 250,00 non è 
stato pagato come pure tre assegni di: $ 50,00, $ 25,00 e $ 12,98. Inoltre, non risulta 
un ritiro pre-autorizzato di $ 35,00. Qual è il bilancio contabile? Il bilancio 
dell’esame del registro è di $ 118,99, i carichi di servizio sono di $ 9,36. Quale è il 
bilancio contabile riaggiustato? Il conto è in bilancio? 

Risposta: Il bilancio contabile è di $ 109,63. Il bilancio riaggiustato è di $ 
109,63. Si, il conto è in bilancio. 


Listing del programma 


IO FRI NT “RIASSESTAMENTO LIBRO DI CONTROLLO'' 

ZO REM - FUNZIONE PER DETERMINARE SE E STATA INTRODOTTA UNA SOMMA POSITIVA 
30 DEF FNBOD = INTO:*10e+. 5\ 'l«»SGNOO 
40 PPIMT 

50 PPIMT "QUAL E IL BILANCIO FINALE DELLA SOCIETÀ"'; 

SO INPUT E 

73 REM - TEST SPECIALE PER LA VALIDITÀ DEL DATO INTRODOTTO II NUMERI NEGATIVI 
75 REM - SONO CONSENTITI; 

SO IP E= INTIERI00)/'100 THEN 120 

SO REM - TOTALE NON VALIDO.- SEGNALA L ERRORE.. CICLO PER RIENTRARE 
100 REM 00SUB680 
110 REM GOTO 50 
II'O PRINT 

ISO PRINT "INTRODUCI L'AMMONTARE DI OGNI DEPOSITO NON COMPRESO NEL BILANCIO" 
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140 

150 

160 

170 

ISO 

1?0 

200 

210 

230 

240 

? C .Q 

260 

270 

2S0 

ritiri 

200 

310 

■520 

430 

340 

350 

360 

370 

3S0 

440 

400 

410 

420 

430 

440 

450 

460 

470 

486 

430 

500 

510 

520 

530 

540 

550 

560 

570 

580 

530 

600 

SIO 

620 

330 

340 

650 

360 

670 

380 

530 

700 

710 

720 

730 

740 

750 

760 


PRINT "< 0 QUANDO TUTTI I DEPOSITI NON PAGATI SONO STATI INTRODOTTI)" 
D=0 

INPUT A 

SEM - TUTTI I DEPOSITI SONO STATI INTRODOTTI? 

;F a=0 THEN 260 

REM - NO, TEST PER DATI INTRODOTTI VALIDI 
IF FNB<ft)=A THEN 240 

REM - DATO NON VALIDO, STAMPA L'ERRORE STANDARD, CICLO PER RIENTRARE 

OOSUB 7tO 

GOTO 160 

Ii=D+A 

GOTO 160 

FRI NT 

PRINT “INTRODUCI L'AMMONTARE DI OGNI ASSEGNO NON COMPRESO IN BILANCIO* 
PRINT “< 0 QUANDO TUTTI I DEPOSITI NON PAGATI SONO STATI INTRODOTTI)" 
C=0 

INPUT A 

PEM - TUTTI GLI ASSEGNI NON PAGATI SONO STATI INTRODOTTI ? 

IF A=0 THEN 400 

REM - NO, TEST PER DATI INTRODOTTI VALIDI 
IF FNECA)=A THEN 380 

REM - DATO NON VALIDO, STAMPA L'ERRORE STANDARD, CICLO PER RIENTRARE 

OOSUB 720 

DOTO 300 

C=C+R 

GOTO 380 

PRINT 

PRINT "BILANCIO TOTALE = r.“;<E+B)-C 
PRINT 

PRINT “INTRODUCI IL BILANCIO DEL TUO REGISTRO"; 

INPUT E 

PRINT "INTRODUCI IL TOTALE DEL CARICO SERVIZI"; 

INPUT S 

REM - TEST PER DATI INTRODOTTI VALIDI 
IF FNB<S)=S THEN 520 

REM - DATO NON VALIDO, STAMPA L'ERRORE STANDARD, CICLO PER RIENTRARE 
OOSUB 720 
GOTO 450 
PRINT 

PRINT "BILANCIO TOTALE AGGIUSTATO = t.";8-S 
INPUT CA¬ 
PRINI 

PRINT "IL VOSTRO BILANCIO NON QUADRA." 

PRINT "ASSICURATEVI DI AVER INCLUSO TUTTE LE TRANSAZIONI A FRONTE" 
PRINT “DI QUESTO BILANCIO, INCLUDENDO I DEPOSITI AUTOMATICI E" 

PRINT "I PAGAMENTI DI INTERESSI, COSI ' COME LE RINUNCE FRE-AUTORIZZATE. 
PRINT 

REM - FINE PROGRAMMA 0 RIINIZIO? 

PRINT 

PRINT "DESIDERI RIUTILIZZARE QUESTO PROGRAMMA CON NUOVI DATI <$.?!>": 

INPUT Zt : PRINT"? "Z*: REM CANCELLARE PRINT"? "Zt 

IF ZT="S" THEN 40 

IF ZT="N" THEN 760 

GOTO 530 

PRINT 

PRINT “ERRORE' INTRODUCI SOLO UN VALORE TOTALE IN LIFE VALIDO." 

PRINT 

RETURN 

PRINT 

PRINT "ERRORE INTRODUCI SOLO UN VALORE TOTALE POSITIVO IN -IRE -.'ALIDO. 

PRINT 

RETURN 

END 
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BILANCIO FAMILIARE 

Questo programma mostra un bilancio di cassa ad uso personale, permetten¬ 
do una varietà di spese, le quali possono avvenire in molti modi differenti. 
Introducete le informazioni di reddito e di spesa che il programma richiede, 
giorno per giorno dettagliate i redditi e le spese avute. È permesso anche l’uso di 
carte di credito come mezzo di pagamento nel caso in cui la vostra cassa sia 
insufficiente per coprire i debiti. Volendo si possono dilazionare sul periodo di 
tempo successivo i debiti che non si riescono a coprire. 

Per usare il programma introducete i dati del bilancio iniziale. Il programma 
vi guida attraverso una serie di entrate, partendo dal vostro reddito netto, seguito 
dai prestiti garantiti, dalle carte di credito e dalle normali spese. Se il vostro 
bilancio non include alcune delle voci che vi vengono richieste introducete zero 
per tali voci. In tal caso slitterete alla prossima voce del bilancio. 

Quando introducete una voce del bilancio dovete fornire anche il suo am¬ 
montare periodico, quante volte si è avuta questa voce e quante volte si avrà in 
seguito. Fanno eccezione i prestiti garantiti e le carte di credito, per queste due 
voci sono, infatti, necessarie più informazioni. L’ammontare periodico è una 
somma che voi ricevete come reddito, o pagate come spesa. Quindi dovrete 
introdurre quante volte la voce è ripetuta nel vostro bilancio, quest’entrata deve 
essere un numero intero da 1 a 99 inclusi. Questo numero dirà al programma 
quante volte la voce si ripete in un anno ( 1 = annuale, 2= semestrale, 4= trimestra¬ 
le, 6= ogni due mesi, 12= mensile, 24= due volte al mese, 26= bisettimanale e 52= 
settimanale). 

Se la data successiva per la voce del bilancio è quella di partenza del bilancio 
stesso, introducete zero (0). Altrimenti introducete tale data come un numero (es. 
15980= 15 Settembre 1980). Potete introdurre una data mensile o annuale a vostra 
scelta dopo la data di partenza del bilancio. Il programma fornirà la sua analisi di 
cassa rendendo attivo il reddito futuro o le spese quando avrà raggiunto la data da 
voi prescelta. 

Per i prestiti garantiti dovrete introdurre il bilancio restante del prestito come 
un ammontare periodico la sua frequenza e la sua data successiva. Per le carte di 
credito, dovrete dire quale è la quota percentuale annua della carta, il suo bilancio 
restante e se è un credito con limiti autorizzati. Il programma calcola e mostra il 
totale ed il numero dei pagamenti restanti per ogni carta di credito. Se volete 
cambiare tali pagamenti, specificate se i nuovi pagamenti periodici hanno un 
ammontare maggiore o minore. NOTA: il programma calcola tutto il fluire dei 
pagamenti per rendere il bilancio più prevedibile. Quando il pagamento totale 
calcolato durante l’analisi del flusso di cassa supera il bilancio restante della carta 
di credito, solo tale bilancio restante viene pagato. 
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Quando avrete introdotto tutte le voci il programma vi chiede quanto avete 
in cassa. Introducete questo totale ed il programma inizierà l’analisi. Alla fine di 
ogni mese l’analisi finirà. 

Poiché le entrate sono molte voi potrete correggere gli errori fatti solo sulla 
voce che il programma sta eseguendo, cioè, non potete tornare alla quinta voce se 
il programma sta eseguendo la decima. 

Mentre esso sta eseguendo una voce voi potrete tornare indietro nell’ammon¬ 
tare periodico introducendo -1. Esempio: se vi accorgete di avere introdotto un 
errore nell’ammontare periodico del salario 1, ed il programma vuole che introdu¬ 
ciate il dato successivo per questa voce. Dovrete introdurre come nuovo dato — 1. 
Il computer accetterà questa entrata e vi chiederà nuovamente di introdurre 
l’ammontare periodico per il salario 1. 


Note al programma 

Il programma Bilancio familiare/Flusso di cassa permette un massimo di tre 
redditi, tre prestiti e cinque carte di credito, ed inoltre venticinque voci di spesa. Il 
programma porta come prima voce la cassa dei prestiti, quindi le carte di credito 
ed infine, le altre spese. Le spese sono poste in ordine di importanza decrescente, 
cioè, se nello stesso giorno compaiono un prestito, una carta di credito ed una 
spesa al ristorante, il programma considera prima la cassa per il prestito e 
considera per ultima la spesa del ristorante. 

Il cambiamento del programma per permettere più voci è un processo che 
avviene in tre fasi. Per prima cosa sostituite nella linea 20 i termini A,B,C e D in 
parentesi con i numeri desiderati. Il significato di questi termini è spiegato in 
seguito: 

20 DIM D(12),I0(A,2),C0(B,3),C1 (C,5).C1$(C),E0(D,2) 

A = Massimo numero di redditi 
B = Massimo numero di prestiti garantiti 
C = Massimo numero di carte di credito 
D = Massimo numero di voci di spesa 

Il secondo passo è quello di porre la descrizione della voce extra di bilancio 
nella sezione DATI all’inizio del programma. Potrete aggiungere ogni prestito 
extra ponendo i nuovi Dati fra le linee 90 e 100 che contengono la descrizione dei 
prestiti. NOTA: non è necessario cambiare i Dati per permettere più redditi o più 
carte di credito. Per aggiungere nuove spese, aggiungete i nuovi Dati tra le linee 
110 e 180. 

Il terzo ed ultimo passo è quello di cambiare il Loop FOR/NEXT nel 
programma. Se voi cambiate il numero di prestiti garantiti dovrete cambiare le 
linee 530 e 1080. Normalmente esse sono fatte per tre interazioni. Sostituite il 
numero 3 in questi due stati con il nuovo numero di prestiti garantiti. Se avete 
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aggiunto o eliminato delle voci di spese, dovrete cambiare le linee 750 e 1360. Cioè 
sostituite il numero 25 col nuovo numero di voci di spesa. 


Esempio 


tic familiare.' analisi entrate -ucci" 
rrcTasF, teli. anali:: ra 



L'analisi parte il 1 Settembre 1980 


Il primo reddito netto è $ 512,00 biset. 
Il successivo pagamento è al 5 Set 
1980. 


CALriRIO NETTO 1 . 

"itale periodico ter rettito 

■ ito 

tlv.nte volt in 'jii staio? a 
i.'.-p.oruc: fece torno,, staio :oo,mm,aa 

. - •- 

■ - • TALARI? tC'~" '•••-- 


T < '7 7. tr 1 ' -J; • — rr""TTr 

- i : 7—w ir. x i i_ •- i* li', i'.Cì'-'I i ■_ 


Fine introduzione dati del reddito 


"C T. ; 'LE RESI Or ICO FEF: AUM0RT F:NENT? 


Il pagamento del debito dell'auto è er¬ 
rato. L'entrata-1 èusatapercorregge- 
re l'errore 


TOTALE PERIODICO PER DEBITO AUTO 

“> - C 

OVANTE VOLTE IH V.‘l Sili IO? 12 
INTRODUCI MESE. OICRNC. ANNO 

•:z c , co 

BILANCI! CORRENTE? ICC? 

TCTALE PERIODICC TER ALTRI TEDITI 
■' 3 


Introduci la prima carta di credito. No¬ 
ta: calcolo pagamenti permessi per in¬ 
teresse su 12 pagamenti. 


II TORRENTI TI t. ?2.5 NECESSARI PER PAGARE I DEDITI 


Il pagamento è sostituito 
con uno minore. 


-AMBI IL TOTALE :S,'N?? 0 

INTRODUCI LA SOMMA DEL PAGAMENTO IESICERATO 

il"PAGAMENTI II t. 35 NECESSARI PER PAGARE I TESITI 
CAMBI IL TOTALE .S,'tP~ N _ 


NOME CELLA CARTA TI CREDITO 1 ITERO PER FINIRE.' 1 
? VISA 

"ASSO TI INTERESSE ANNUO? 13 
BILANCIO CORRENTE? 525 

LIMITE TEI CREDITI? 1000 _ 


TOTALE PERIODICO PER IEBIT0 AUTO 

? 30 

OVANTE VOLTE Iti UH ANNO? 12 
INTRODUCI MESE,GIORNO,ANNO <GC,MN,AA> 
. -i , 

BILANCIO CORRENTE?-! 

TOTALE PERIODICO PER IEDITO AUTO 
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INTRODUCI LA ERTA SI FATTURA BEL PROSSIMO VISfi 
IfiTROSUCI MESE. CI ORNO, ANNO <QG,MM,Afi> 

? SS , 3 , SS 

NOME DELLA CARTA SI CREDITO 2 ZERO PEF; FINIRE' 1 
? MASTERCHRROE 

TASSO SI INTERESSE ANNUO? 1S 
BILANCIO CORRENTE? 230 
LIMITE SEI CREDITI? 5O0 

IO PAGAMENTI SI t. 23 NECESSARI PER PAGARE I SEEITI 
CAMBI IL TOTALE <S/N)? N 

INTRODUCI LA DATA SI FATTURA BEL PROSSIMO MASTERCHARGE 


INTRODUCI MESE, Gl ORNO, ANNO <GO,Mtt,AA) 

? 24 , 3 , SO 

NOME DELLA CARTA SI CREDITO 3 «ZERO PER FINIRE) 
? 3 


Fine entrata carte di credito 


TOTALE PERIODICO PER: TASSA PROPRIETÀ' 

/> 


TOTALE FERIOSICO PER AFFITTO 

? 300 

QUANTE VOLTE IN UH ANNO? 12 
INTRODUCI MESE,0IORNO,ANNO <00,MM,AA) 
? 1 - 3 , 30 

TOTALE PERIODICO PER ASS. VITA 

? 12.5 

QUANTE VOLTE IN UN ANNO? 12 
INTRODUCI MESE,GIORNO,ANNO 'G0,MM,AA> 
? 24 , 3 , S0 

TOTALE’ PERIODICO PER ASS. CASA 

? 3 


TOTALE PERIODICO PER ASS. AUTO 

? 125 

QUANTE VOLTE IN UN ANNO? 4 
INTRODUCI MESE,GIORNO,ANNO <GG,MM,AA> 
? 21 , 13 , SO 


Spesa trimestrale. 


"OTALE PERIODICO PER TELEFONO 

<■> '-■c 

QUANTE VOLTE IN UN ANNO? 12 
INTRODUCI MESE,01ORNO,ANNO <OG,MM,AA > 
? 3 , 3 , 30 

TOTALE PERIODICO PER GAS !■. ELETTA. 

QUANTE VOLTE IN UN ANNO? 12 
INTRODUCI MESE,GIORNO,ANNO 15G,MH,AA) 
? 13 , 3 , 30 


TOTALE PERIODICO PER ACQUA 

? 0 


? 0 


■TOTALE PERIODICO PER RIFIUTI 


TOTALE PERIODICO PER ALIMENTARI 

? 25 

QUANTE VOLTE IN UN ANNO? 52 
INTRODUCI MESE,GIORNO,ANNO (GG,MM,AA) 
5 , 3 , 33 _ 


Spesa settimanale 


T OTALE PERIODICO FER VESTIARIO 

? 40 

■QUANTE VOLTE IN UN ANNO? 4 
INTRODUCI MESE,GIORNO,ANNO CGG,MM,AA) 
? 1 II 30 
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""li .-ericd::? per RiPRRflsrcfi! :;-sa 


La data successiva per questa voce è 
la data di partenza dell'analisi. 

"TALE -ERI OD ICC PER CI fìEilft ’COKCERT I 

ÓLfiflTE ‘.’OLTE Iti Ufi aHHO? 2ó 
PITRCDVCI ME3E.OIORHO. «#iC X-CvMKwTRJ 
: 3 - d 

■CTPLE PERIODICO PER SOTTCSCRiriOfil 
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VEN 

T 

REDDITO 1 312 


VEN 

T 

ALIMENTARI 

_ -.C 

-1. 

3RS 


BENE INA.'OLIO 

-15 

_ut; 

3 

TELEFONO 

_ “.C 

LUN 

3 

RISTORANTI 

_ < c 

VEM 

- L. 

ALIMENTARI 

_ - e 

CAB 


BENZINA.'OLIO 

-15 

LUN 

A J 

PAGAMENTO DEBITO AUTO 

.05 

LUN 

15 

RISTORANTI 

-15 

LUN 

15 

CINEMA.'CONCERTI 

-IO 

LUN 

• e 

VARIE 

-1S 

310 

13 

GAS S ELETTR. 

-17 

'.'EH 

13 

REDDITO 1 312 


'.'EH 

13 

ALIMENTARI 

-25 

sae 

23 

VISA 

-35 

CAB 

23 

BENZINA.'OLIO 

-15 

LUN 

—<£. 

RISTORANTI 

-15 

LUN 

22 

VARIE 

-18 

MER 

^.T 

MASTERCHARGE 

-23 

MER 

24 

A3S. VITA 

-12.5 

VEN 

26 

ALIMENTARI 

-25 

SAE 

27 

BENZINA.'OLIO 

-15 

LUN 

23 

RISTORANTI 

-15 

LUN 

23 

CINEMA.‘CONCERTI 

-IO 

LUN 

23 

VARIE 

-18 



ENTRATE 1024 

USCITE ; 836.5 1 


VUOI VEDERE IL PROSSIMO MESE <S/,N) 

? s 


ENTRATE-USCITE F'ER IO .' SI 



APERTURA 

DEL BILANCIO DI CASSA t. 

3S7.5 


MER 1 

REDDITO 2 

100 


MER 1 

AFFITTO 


-300 

VEN 3 

REDDITO 1 

c; « 


VEN S 

ALIMENTARI 


-25 

CAB 4 

BENZINA. 'CLIC 


-15 

« £ 

RISTORANTI 


-15 

-Ut: : 

.'ARIE 


-18 

MER : 

TELEFONO 


-35 

VEN 12 

ALIMENTARI 


-25 

sa: 

BENZINA. 'OLIO 


- 15 

’ * ‘ “ 

RISTORANTI 


-15 

I | |: ' _ 

I INDIA. 'CONCERTI 


-10 

jjy. 

.'ARIE 


•18 

■’ER 13 

•-"ORME:ITO DEBITO .AUTO 


35 

ve:- i' 

’.ZBDITB 1 

c * -• 

-•« c. 


1 1 ~' 

ALIMENTARI 


-25 

-• : 

IA3 i ELETTE. 


- 17 

_ -jr 

BENZINA.'CLIO 


■ 75 

u zc 

.'i~i 


•35 

co 

. 1ITCRANTI 


15 




-18 

w - - , 

1*7 


- :25 


". ASTEROMARCE 


2 ? 


“LIMENTASI 


25 

_ 'Jz 

.'ENZIMA. 'CLIO 


• 15 

— J 

NIO-ORANTI 


. < C 
. 


. : EMANI INCERTI 


ìy 

- 

. :r%i_ 


13 

• »r 

*.f • .TV % » * 

C 4 


' ; 



300 


ari 


• 25 


ENTRATE ! S36 '.'SCI TE 1275.5 


Totale cassa mensile 
redditi e spese. 


” :: 7ETE-" cessine mese n 
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Listing del programma 


• a c-EM BILANCIO FAMILIARE.’ ANALISI ENTRATE-USCITE 

DIM IK 12>, I9<3.2>. C0<4.3>. CI <5.5>. Ct«5>.E9<25.2> 
àc REM DO — FATTORI COMPENSO GIORNO 

40 REM IO’:: — REDDITI DA SALARIO 
FC REM CIO -- STRUMENTI DI CREDITO 
io rem EOO -- SRESE 

-- REM Ciro — DESCRIZIONI DELLE CARTE DI CREDITO 

V- cem CCO — DEBITI A TERMINE FISSO 

•'? IOTA’*AMMORTAMENTO". “DEBITO AUTO" . "ALTRI DEBITI" 

r,r‘M <?»:£<?£ 

DATA'' TASSA PROPRIETÀ'' ". "AFFITTO* 

• ‘0 DATA"ACS. VITA". “ASS. CASA".. "AS3. AUTO" 

•-J DATA""ELEFONC"."GAS « ELETTE.","ACQUA"."RIFIUTI" 

• 40 DATA"ALIMENTARI","VESTIARIO","MEDICO”,"DENTISTA” 

ISO DAIA"MEDICINE","SCUOLA","CURA EAMBINI","BENZINA.’OLI 
;iX‘ DATA "RI PAR AZIONI AUTO"."SOSTITUZIONI ","PIANO MEDICO 
;"0 DA ' VRIPARAZICNI CASA", "RISTORANTI", "CINEMA.'CONCERT 
ISO DAT fi" SC T TOSCRIZ ! CNI ". ‘"•.'ARIE" 

ICC DO: =01 
CCO D '.D ' -22 

• »■;, r V — ■-•fi 


-.er.“- rj - - _-■> « 

rjr « 

ero d ó>so 

CSC D f 10.’=01 
eòo do : =co 
- f.;j r . ^ e : -? 1 

Ho Dr= "SABDOMLUNMARMERGIOVEN" 

SCO FRINÌ "BILANCIO FAMILIARE.' ANALISI ENTRATE-USCITE" 

-RR pRT.JT 

NÒ FRI NT "DATA DI PARTENZA DELL'ANALISI DA’" 

CCO OCCUE OSSO 

dìo bi=dz 

ero v:-v 

CSO MI-’! 

]DÒ DÒ ='.•'# 1 C0O0*M* 1 OC +E2 
400 PAINT 

410 REM INTRODUCI I REDDITI - AMMONTARI }■. FREQUENZE 
40? .mI = "REDDITO" 

440 FRI NT "-SALARIO NETTO"; I2M; "-" 

-CO COSUB 2SSC 

4so :? ae:T"=o them ciò 


4S3 iene. ::-*A2<l> 

400 I0C2. 2: =A2<2> 

CCO DOTO 440 
CIO .'RINT 

CEO REM INTRODUCI I DEBITI GARANTITI 
CCO POR 1=1 TO 3 
C40 READ SU¬ 
CCO REI UT 
CSC CCSUB 2OSO 
ero IF A1M1M0 THG.N S4C 
CSC IP AZI IMO THEN CCO 
ODO CSC. 1>=021!) 

EOO CCC.Z’-AEO 

CIO FRINT "BILANCIO CORRENTE". 

CEO INPUT co: 1,0 

CSA IF PS-'IM'Cl THEN CSC 

*40 ne::t i 
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=50 REM INTRODUCI CARTE DI CREDITO E LORO DESCRIZIONE 
=60 REM VENGONO ASSUNTI PfiCfiMEMTI MENSILI 
=70 PRINT 
600 :<=i 

-*?0 777LT 2020 

700 :r’::T 7 :’:. s >"0 “ tnen reo 

rie y. =k *■ i 

720 L'CTC z3@ 

74 =v 

”40 REM INTRODUCI SPESE 
”50 FCR 7=1 T0 25 
750 PRIMI 
770 REfiD :-:t 
7*0 SGSU2 2=60 
-or- C0/;/ ; ; -fi2 11; 

ICO E0(K!• 27«ft2 i2? 

210 MÈmV’ Y. 

720 REM INTRODUCI LE RISERVE I ! I CSC Sfi CORRENTI 
220 ERINT “INTRODUCI CfiSSfi S0T”7 MfiMC" 

240 INPUT DO 

=50 REM INIZIO fiNhLISI 

=60 ERINT 

27'0 ?R I NT '' ENTRATE-USO I ”E PER " ; M1 : " ' " I NT 1 7 1 ^ 1 ? 

7S0 PPI NT " APERTURA " DEL ì' ILfii ÌC17 ì I 7fi‘77fi T " 70 
20Q 21=0 

700 I1=0 

•*• « fr r-^p i'4_r<« -*-r- twm4\ 

-j-.r. p^c-yppr 

7-Ì0 REM 7CNTRCLLA IL REDDITO 
750 IP INI110<7.27/7D4 THEN 1060 
760 Bb=DÒ^I0s'. ; ’ :" 

770 11=11*1017. i> 

??Z 22=11 
100G~ V=':'ì 

4 -| 4 .-4 r--“i _ / T /> Tp'i — TIJT-'TS ■ » s f: ' rif 4 

7 020 *2117 =DS. *TÒ0 
1070 boéup 25io"" 

1040 10-17.2 7 =fi211 7- +V*10000+M* 100+D2 
* 050 cc INT 4T : DI TfiP ; ,, REDDI T 0" : 7 TP? 1?5> 10' 7. 1 ! 

1060 NENT 7 

1070 REM 2fiLCCL.fi LE USC ITE PER LEDI TI fi TERMINE FISSO 
ISSÒ TIR 7=1 "tS 7 
107C READ NT 

lì DO IF 7017,77=0 THEN 1200 
1110 IF INT17C1J.2M-7I4 THEN 1200 
1120 IF 7017.777C017,17 THEN 1140 
1130 7317. 1 ‘ =C"017 .■ 7 > 

4 • ifi “2 • * \ -.PO / J 4 

*Ì50 fi2'2'=C0 ; J,27 
il5Ò OCSUB 1700 “ 

4 4 "Ti CO •' T : 7 =■■'P0 •• T r- T ,‘JT /C0 ; T , 2> N . i-y* 10000-41* 1 OC *-72 
ÌÌSÒ PRIMI PT ; D1 i TAB •<? 7 ; PAGAMENTO " * NT; T fiÈ ' 53 7""1 *P2 ; 1 
1170 SOI 7/77=0017,77-A2117 
1200 NEVI I 

1210 REM 7fiLCCL.fi LE USCITE PER CARTE DI 2RC2IT7 

4 ■■ 7 - r> T ^ p »— 4 -TQ r-_4 

122 0 IF C1 7,5; ; D4 THEN 1740 
1240 IF II17. 27=0 THEN 1740 
1250 IF 717 I;.* 7117-4:- TJ!Di 1270 

4 :-=-f| f-4 - T 4 ■ T -.V, 

iì”0 fi2Ì: =C17 4>” 

1220 fi212ì=Cl17,5:-. 12 

:220 ::t=citi7i 

1700 33SU5 1700 

1710 ** IN” fiT D1 T.fiB 1 ? 771 1 < 7 7 ; TRE *150 7* -1*A211 
1 32 O 71 " 72 7 =C 117 2 > - fi211 7 
1770 71 :7, 57 «vi 10000f ri* 100*22 
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.-40 MENI 

;'-*e REM CALCOLA LE USCITE PER LE EPE;E 
rrp j=j TO 25 

;i-n péro sa 

•oso if lo'j. i:-=o THEM 1450 

IF INT<E0<. t ,2:\‘'I?4 THEN 1450 
;ììq ?£::>■=£&':.-i: 

:«#n 32<2/=E0<J,2> 

7 T-rn •X'SUE 170O 

: i'5 PRIMI ai-; DI ; TAB<?> ; TAB<50> ; -:#A2< : > 

* *40 EO< j, 2>=<EO< h 2 -1NT 'EO< .T,2> > : +V*i0000+11# 100+02 
•irò «EXT . T 

•460 D1=DS+1 

• ITO 04=VI#1 0008+Ml*100+D1 

‘ir-O m=mi 
:4?c bs*si 
*300 V=V1 
ter#* -Q5UB 2890 
1=22 »IE«T K1 


1528 22=1 
!é^0 B2 =I’^ k *1' 

•550 “=M! " 

*<rgO V=VÌ 

3500 GCSUB 2750 
3500 03=1 

• iici M1=M 
•joò V1=V 

3PIO OOSUB 2890 
3620 D4=V1 * 1 OOOO+Ml# 100+01 

3600 PRIMI TRE<22>"ENTRATE "; 11 ; TAB<41 >; "USCITE". E3 
3640 PRIMI 

3650 PRINT "VUOI VEDERE IL PROSSIMO MESE IS.'NV. 

3650 INPUT XO# 

3570 IF M0Ì="S" THEN 370 
3630 IF X8*="N" THEN 3320 

• .'^n goto p?n 

3700 REM APPLICA LE SPESE 


3730 

X0$=”“ 




3 720 

IF B0- 

A2<1>.'=0 THEN 3910 



3730 

FRI NT 

"LA CASSA ABBISOGNA PER "■;> 

f ; ” f 

"’P2 '1>;“ 

1 •'40 

PRINT 

"INTRODUCI D=BIFFERI3CI LA 

SPESA 

C=USfi LA 

3750 

INPUT 

M0# 



1760 

IF ' 04 

="D" THEN 1330 



J --O 

IF NOI 

ICC" TS-SEN 1740 



3730 

cpn.JT 

"CAPTA DI CREDITO NUMERO <1 

_ Il • -^4 

<i •«■ -*?Tp-f s (• 

3790 

INPUT 

MO 



3S00 

IF X0< 

3 THEN 1740 



* Q‘ * 

IF XOOC4 THEN I7S0 



3120 

rp r~* ? 

V£,2> *fi2< 1 v 2=C1 <20, 2> THEN 

1350 


t r - '-.r. 

FRINÌ 

"DISPONIBILE " 

EDITO 

oi r. 

1242 

ODIO 3 

730 



- 2 

CI IMO, 

2 > =C 1 < 1 !f<, v • -* h2 x 1 n 



* rtgct 

K=X0 




3S70 

"0T="1 

u 



* fi 

3CSUB 

2160 



« •" OO 

!0f=" " 




:.“O0 

RETURN 




* ~i * c? 

EO=DO- 

A2'l> 



■ -2| 7-fi 

E!=E3+R2I3.' 



1922 

03=192 

f s -tj;t ■'P2 ■ ”■ x s ' ♦ l 



1942 

V=INT' 

P2'2.\ '1200C: 



3950 

M=IMT : 

'22<2:-V ¥ 12808 .V128 > 



3960 

r2= T ‘iT 

fi2(2) -< Y¥ 100Ò8+M* 188> > 




REM 0fi 

.COLA LA PROSSIMA DATA 



1222 

2C-S-JB 

" ,tr 1 f" 



* 

if : :ot 

C" 2" TUBI 2218 



22+22 

PRIMI 

"LA SPESA E' DIFFERITA FINC 

Fi" / M 

; 22: ". * 

“•fi < fi 

9!2-UPfJ 





REM 3C 

TTOPROCRANSIA DI INTRODUCICI 

E DAT 

- 01 CARTE 


"RISSI 

"NOME DELLA CARTA DI CREDIT 

2 1 : y. * 

'ZERO FEF 


SOTTO SIAMO' “.TO 
SARTA 01 CREDITO” 


■,.’(> ax _r* ■+yfi -t* s 
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KKI 


204O IHPL’T PEriT*’? "OiJ^JO'^E** ‘“nHCE! ' ARE F-I -T"‘ “ ZI; 

2250 :r CI $ '!<? C= ;, 9*' THEN 2G50 

ceco ?a:kt "T82SC interesse «sa»" 
cero input 

Lese ir ;; u tnen coso 
cére pr i nt “èièssici c~ccrrI?ite " ; 
creo input z> 
e : : e :r :: ik. ci :o thcn ceco 
lice pfint "limite tei cresiti": 
cicc input :i i:<. :: 

CI4C I. r 211KL 3'CO THEN C0?0 

cìéé ir ci vi'. ii=ó ti-ìen céro 

e* 15 ci uViyiijjTi. :Vc: ;k. ci*:eo+.5'.’ioo 

-, -ì • • -r- ■ ‘ ' '' vi 


CCCO IT ?! 1-0 THEN 2230 

CCCÒ PR’NT Ài'"PAOAMENTI CI f. ".'Ci l!-., 4.'1 "NECESSARI PER PACARE I CESITI" 

cc ;>;7 «''OtiTii »! "TìTrlLE ' 

22 4C INPUT Nlf * 

LLSfl l~ '14 ' n"I’ »up| 

cere primt "IMTRCÓL'Ci la comma pel pagamento ini berato" 

Cerò iÌÌf'JT II Mi 41 

cesò écTc ciée 

cero ir mc*=" 1 " then 2350 

TCOO "'PIMI "MTPfT'i'CI LA TATA 2' C RTT''RA TEL PROSSIMO "ClfltO 

ciò Rcic:=e 

ICC 3CCSJB 2470 

ecco i* theii cico 

“• * v >y «r \ — ^- 7 - ' ^ v 

CCÓÒ RÉTL'RiV 

cero REM 'SCTTCFRCORfiMMA PER CALCOLARE LA FREQUENZA SELLE SPESE 
r'-a K|< l'ATRI'E COHTTNTR I c I' : "LTRTI 

creò frinì - tasoie-lìho:ì>iT-totale periodico fep ";m* 
ceco input seni 
e 400 ir 3211 : 1=0 then ceco 

C410 rr.IS'T”C'JfiNTE VOLTE IN UN ANNO" : 

C4C? INPUT ne ICC 

2420 ir S2l'c~c=c T.HEN 2380 

e 440 ir scici ::oc theh 2470 

C4S0 RPINT "LA FREQUENZA NON PUC' SUPERARE I A3 GIORNI” 

C4S0 OCTG 2410 

2470 "COLT 2000 

24CO IF ili*-: THEH CSOO 

riap 'vyC'-'fiC'C' 'ia0*VflO000**1»:«*+r2 

2S00 RETURN 

cric REM TROVA LA PROSSIMA RICORRENZA MENSILE, BIMENSILE 0 TRIMESTRALE 

~-c - o rp “‘T-Jfì 

2520 IF 22=2 3 THE"? 2620 

- rr^p 


256? IF M >12 THEN 2590 


2520 V-V »■ 1 
2590 ^'E/cT v* 

2600 SET'JRN 

2212 REM CHLCOLP LA PROSSIMA RICORRENZA QUIMPICINALE 
2620 IF r2Cr(M> THEM 2650 


2640 GOTO 2690 

2650 IF 2222'M> THEH 2620 

2660 22=22 L 15 

2670 RETL’RM 

2660 22=22-15 

2620 M=MfÌ 

2 -1 '“f> t r r theh ?7^0 
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—« ^T”Ri 

- ^ ^ = r 1 ,'T y ^5 - ^5. '20 v 

'Zìi ^rr'CSLCÓLR Ù>f GIORNO R 20 GIORNI 2nL M. *22 
,r ».r. - ■--tv M > THE. 1 ' 2370 


.'-cri 

'èr5 


_ m>-22. v 

-f-.- 

7Gm 4. « 

V- 2 THEM 27E0 


-i r — 

^•40 :^ ; * ::ÌNT:v.'4>f4 them egeo 

7.“*c"; '■■■ ?' -2? 

'ój-'i 5ÓTC 2720 
22-22'22 
T.7-2 oc-r'Pf! 

cf m" 0077GPROORfì:!Mfì PER G.3LCCL3EE I GIORNI 2-ELL3 GETTIMfìNfì 
Z&& r F r'G 1300 TttEN 2020 

22*2 V=V^:?C0 

"ó;.2 -c 2 7HZN 2020 

5?:o mWi>*:2 

' «*i * *«* .*. a 

'o«rX i :=èl-2*M-II!T0-f MI *■ 12 2 *S U INTIV.'42 -IMTIV.‘190>*INTG’rV'4002«-2 
7.R -fi N=I * !T 1 IN. 'T* ■ • I NT M !. '7 22 *7 *. E ; 

-T-2 rj|:=MT it'Dt. '. N*02 *1,22 
-■ó--;2 ^ETVRiJ 

-2;2 REM*ROUTINE 21 INTRODUZIONE IELL3 2RT3 
TV-.R rcM 2: r i 2373 E' TROGPERITO IN N,22 E V. 

^2 ” -i t-- - ^ _ 7 . c- 

=Xf5 ^RIN’T*"" INTRCTUCI MEOE. OICRNC.-R.MNO '.GG. MM, 3R2 " 

22”.^ *ijr5' , " r 2 , M M 

: 2-ìc :f f?=o ~tnen gito 
"eòo IR N--: THEM 1:00 
-r-'O MI 12 TNEN 2020 
: 2*r- *r *.«-• ^rij 2020 

i:2C ir v 1 : :ntn. , . , 4:-t4 then 2:20 


IR 22Gl THEN 2020 
• c -•-•• y-■■•»•'•• "k02S 

- * "i.-l 


2110 '*-'.*1 
GÌÓÓ RETURN 

2200 REM0Ò7T0FF.GGR3MM3 7 'EF: C3L0CL3RE ERETTAMENTE I PROfìMENTI 
1212 REM RIFERIMENTO 3LCUMI 7RCCRF5MMI IN 230 IO COMUNI 
0020 REM R1 =PP l) SOIPPLI. ~F 2-PPG-nMB!TI MEhiGILI, I ZI NTERE3CI 

»r* • -cr T'jrii “•c-r 4 

- r ii^* y ' t 4 -^r. « > 4 \ • r « '<^,1 • m«svs 4 ^0 4. r ■-. ' 4 gg 

0270 RETURN 

2222 REM GGTTCPROOREMMfì PER I ETERNI.NERE I_ "ERMINE TEL F'REOTITC 
2272 REM 11-73030 21 INTERESSE. RI -FRINOIF3LE. 31=T0T3LE F303MENTI 
1200 REM RIFERIMENTO• 3-LCUUI "RCORRMiMI IN 23010 COMUNI 

2200 ri * - UGO-: i - ìv : ; >. nix ; i1. mg: ni: :■ : 

2000 31 = 1NT :31 + 12^.7: 

2010 RETURN 

" - ’ .* rii* 
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METODO DEL PERCORSO CRITICO (CPM) 


Questo programma calcola il tempo necessario per completare un gruppo di 
attività legate fra loro. 

Prima di usare il programma, tracciate un diagramma CPM ed una tabella di 
precedenze. Quando avrete stabilito la rete di lavoro controllate se sono state 
incluse le attività “simulate” nel diagramma. Queste attività non hanno una 
durata effettiva, ma sono necessarie per indicare la precedenza di alcune attività 
su altre nella rete di lavoro. 

In seguito questo programma vi permette di rivedere la rete di lavoro, 
cambiando la durata delle attività e i costi. In tal modo voi potrete vedere i 
cambiamenti della via critica. In funzione del grado di cambiamenti della rete, tale 
via può variare aggiungendo o eliminando delle attività. 


Note al programma 

Il numero di attività permesse, correntemente, dal programma è 100. Se 
volete cambiarlo, dovrete modificare la linea 60 del programma come segue: 

60 DIM A(I,2).S(I),F(I),E(I,2) 

Dovrete sostituire l’espressione I con il vostro massimo es. 15, 20, ecc. 

Può esistere un tempo di rilassamento negativo per ogni attività, tuttavia il 
programma non ne tiene conto ne nel tempo di partenza ne nel tempo finale o 
lunghezza di via critica. 


Esempio 

La Washoe Valvole ha una larga attività ed un vasto giro di vendita nello 
stato, nell’Indiana essa ha tre addetti alle vendite che coprono tutto il territorio e 
che le procurano molte vendite. Alla fine del giro di vendite tutti i tre venditori 
vanno a Chicago per un incontro di sintesi. 

Nance Graham, direttore alle vendite vuol sapere quando è partito ogni 
venditore per il suo viaggio, quanto tempo ognuno ha passato guidando e quanto 
tempo è stato utilizzato per le vendite ed in quanto tempo ogni venditore pensa di 
giungere a Chicago. La sua carta di precedenza contiene anche i rimborsi giorna- 
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lieri, che sono calcolati come spese di viaggio. 


Attività 

Sequenza 

nodale 

Tempo 

(ore) 

Costo 

1. Gary guida fino a Terre Haute 

1-2 

2 

30 

2. Nance guida fino ad Indianapolis 

1-3 

3 

40 

3. Lana guida fino a Muncie 

1-4 

3.5 

49 

4. Vendite in Terra Alta 

2-5 

36 

125 

5. Vendite a Indianapolis 

3-6 

48 

320 

6 Vendite a Muncie 

4-7 

48 

125 

7. Gary guida fino a Lafayette 

5-8 

3 

40 

8. Nance guida fino a Chicago 

6-11 

5 

35 

9. Lana guida fino a Ft. Wayne. è 

7-10 

2 

30 

partita senza valvole 




10. Vendite Lafayette 

8-9 

16 

90 

11. Gary guida fino a Chicago 

9-11 

4 

52 

12. Lana guida fino a Chicago 

10-11 

2 

30 


Quale sarà la risposta se Nance esegue il programma? 

Risposta: Il tempo minimo necessario per completare un giro di vendite è di 
61 ore (lunghezza della via critica), le spese di viaggio sono di $ 966 (costo della via 
critica). 


n. ■no :f 

: -ri 

:ri7::o 


".•.ir" 




soro 

;ir 

: oli sere 

r : .sóle 

• T'CIL'C: 

rvrors 

r 

•: :?7C" r 



sere 

•‘IZ 

irlo, ere 

RISOLE 

: c-cr-cc: 

ZJF9.Tr. 

r 

- 

4 ; 


•;oro :: 


ioli. sere 

"ISOLI 

i-trisvc: 



nere- :.z 

ì; 

:: t-ctl;: 

• *■ ■ » i 

■ -v^v 

■iz 

ioli sere 

"ISOLI 


:.LF37'. 

z 

irere- 

• •■c 

sxeroe : 

* l 

::r 

:oli sore 

7ISOLE 

’NT'OI-L'C I 

rLTfi76 

- 

03*701 4? 

eie 

LiTRcroc: 

sosc i; 


:6L£. sere 

■isole 

::*"C3L'c: 

rUR070 


eeere - io 

• “tr 

: suo ree: 

SCIC i> 

nr 

iole .sere 

"ISOLE 

:: Terrori 

I-_P.'tTr 

L 

eroTc? : 


’: 

fiore : 

nz 

IOLE. SCIO 

"ISOLE 


rUPft7f~: 



- ir 

iltfcll'c: 

sorc 

i:z 

iole sere 

- ISOLI 

siTRcrue: 

r'JRF'Ti 

z 

COSTO? 2 

re 

siTRcruc : 

sere i; 

ni 

irle, sere 

"ISOLE 

[:;7Soruci 

lERCTO 

e: 

eoe70” ir , 

. IO 


-L':'77IVI7 ( V 4 


:o 


s 

11 

10 
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..•'RIDUCI uose INIZIALE. NODO RIMALE DELL'ATTIVITÀ' Il ? ? li 
T'IÌRCDvCI DURATA E COSTCO 4 , 52 

•ntrcduci nouo iniziale. Nero finale dell'Attività' 12 '-io :: 
introduci durata e costo? 2 , co 


le 

FINALE 

PARTENZA 

ARRIVO 

DURATA 

ATTESA COSTO 


2 


2 

2 

CRITICA 

so 




0 


cr 

40 


4 


r» 

•? e 

c cr 

43 

2 

er 

— 

33 

ss" 

CRITICA 

125 


£ 

7 

iè 

4S 

C 

320 

4 

7 

er 

CT-’ 

4S 

5.5 

125 

r; 


-iO 

-•O 

41 

X 

CRITICA 

40 

£ 

; 1 

cr « 

51 

c 

C 

35 

~ * 


ci cr 

59 

2 

c- e- 
-> ■ 

30 


0 

t i 

57 

le 

CRITICA 

30 


1 1 


SI 

1 

CRITICA 

tr*% 

IC 

11 

53.5 

51 

2 

e cr 
-• • -• 

30 


4 LUNGHEZZA DEL PERCORSO CRITICO E' SI 
'OSTO TOTALE DI 3UESTA RETE» ?S6 

•VOI CAMBIARE SUALGUNA 

DELLE DURATE DELLE ATTIVITÀ" <S,TJ>? N 


Problemi pratici 

1. Supposto che Gary utilizzi solo 30 ore per le vendite in Terre Haute, varierà 
il percorso critico? Gary potrà attendere prima di partire, e se sì, quanto? 

Risposta: Il percorso critico si riduce a 56 ore. Gary può ora attendere 7 ore 
prima di riprendere il suo viaggio, e Lana può attendere 1/2 ora. 

2. Nance può prendere l’aereo, invece di guidare. Il tempo di volo per 
Indianapolis è di 1/2 ora, e per Chicago è di 45 minuti. Essa deve pagare una tassa 
di sbarco di $ 5 a Indianapolis e di $ 20 a Chicago, tali tasse si devono aggiungere al 
costo precedente. 

Con queste informazioni, quanto tempo può attendere prima di partire? 
Quanto sarà il costo totale? 

Risposta: Nella rete originale Nance poteva attendere 5 ore. Ora essa può 
attendere 11,75 ore prima di partire. Il costo totale della rete è ora di $ 971. 


Llstlng del programma 


I? REM METODO DEL PERCORRO CRITICO : MAC) 

23 REM MATRICE" A ' - NCDI DI INIZIO È FINE PER OGNI ATTIVITÀ' 

DO REM MATRICE S' - TEMPO II PARTENZA INIZIALE PER OGNI ATTIVITÀ' 

-0 REM MATRICE 'F' - TEMPO DI PARTENZA FINALE PER OGNI ATTIVITÀ' 

CO REM MATRICE 'E - DURATA E COSTO DELLE ATTIVITÀ' 
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:o din v: i9C,o,s<:3e>. f t:3e>, e< 100.2 > 
set f i ìrczì>i.‘it< citieeo*. 5>>. ':oee 
50 FRINT "METODO DEL PERCORSO CRITICO" 

90 FRINT 

100 FRINT "QUANTE ATTIVITÀ' I!! QUESTA RETE" 

'10 INPUT M 

120 fcr :=: tc m 

ICO FRINÌ 

ITO FRINT "INTRODUCI NODO INIZIALE.- MODO FINALE DELL'ATTIVITÀ'";I; 

150 input ac:. 2 ? 

ICO IF All, CRII,2.' THEN 25-0 

17? IF RII.I) 31 THEN 250 
* ][.■?) THEN ‘‘SO 

190 FRINT*"IL NODO INIZIALE DEVE ESSERE CONTRADDISTINTO DA UN NUMERO INFERIORE" 
200 FRINT "DI QUELLO CHE CONTRADDISTINGUE IL NODO FINALE, ED IL MONO FINALE" 
ZIO FRINT "DEVE ESSERE INFERIORE AL NUMERO DELLE ATTIVITÀ'." 

220 FRIHT " ***RIPROVA#*#" 

200 FRINT 
240 OCTO 10:0 

250 FRINT "INTRODUCI DURATA E COSTO" 

250 INPUT E<I,1),£CI,2> 

270 SII.' -O 
2S0 F-:il=0 
290 NEXT I 

200 REM CICLO PER TROVARE LA PARTENZA INIZIALE PER LA RETE 
210 FOR 1=1 TO N 

220 IF S<a<I,2»0=S<fi<I.l»»Ea,l> THEN 340 
230 3<A'I,2>.'=S'RCI, 1 ))*■£< 1,1) 

240 MEST I 

250 FIATI. 2))=3<RCN,2) ) 

260 REM CICLO PER CALCOLARE IL TEMPO FINALE PER LA RETE 

070 FCR I=N TO 1 STEr -1 

OSO IF PIACI, l.»=0 THEN 410 

200 IF FISCI, 1)»F<RCI,2>>-Ea, 1) THEN 410 

400 DOTO -20 

4I0 F'ACI.1';=FCRCI,2))-ECI,1> 

420 NENT I 

4S0 c-:i.'=q 

440 L=0 
150 FRINT 

460 REM CALCOLA TEMPO DI ATTESA IN 31 
470 FRINT "MODO NODO" 

480 FRINT "INIZIALE FINALE PARTENZA ARRIVO DURATA ATTESA COSTO" 

400 FCR 1=1 TO N 

500 FRINT AC 1,1 );TABO) ;fi<1,2); TASI 17) ;S<A< 1,1));TABI24); 

510 FRINT FCR<I,2>>.TABCS2);ECI•1);TABC42). 

520 S1=F1ACI. 2))-SCACI. 1))-ECI 1.' 

520 IF 2120 THEN 570 
540 FRINT "CRITICA"; 

550 L=L-E'I,1> 

5S0 DOTO 590 
570 FRINT 21 ; 

500 OSTO 590 

590 FRINT TABI51);ZC1.2) 

500 01=C:*ECI,2> 

210 MENI I 
520 FRINT 

SCO FRINT "LA LUNGHEZZA DEL PERCORSO CRITICO E' ";L 
540 FRINT "COSTO TOTALE DI QUESTA RETE» ".-CI 
550 FRINT 

250 .FRINT "VUOI CAMBIARE QUALCUNA" 

270 FRINT "DELLE DURATE DELLE ATTIVITÀ' IS/H)". 

500 INPUT A# 

590 IF -;r=“N" THEN 850 
"00 IF ATI)"2“ THEN 550 
'10 FRINT 

720 FRINT "QUALE ATTIVITÀ'". 

'00 INPUT I 

740 IF I II THEN '10 

"50 ir ::n then 710 
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-sn PSIì!T "Lfi i'JRRT.R CORRENTE E ' " : E ' S. 1 ' ; " 

---• ff.int "introduci lr nucvr fjrrtr ed 

T1 jp> *T r 'Z i ' ~ 1 ~i 

-ór- PRINT ‘•—-CTC'RÌCflLCOLfiHEO Ut RETE-" 

:Ó0 RRIfiT 

fcs t o h 

C ; T > =0 
J.Trt r. ■l ■■■ t f. 

Uo MÉKT : 

:?o ocre eoe 


nuòvo costò*) 
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METODO PERT 


Questo programma calcola il tempo minimo necessario per completare un 
progetto in condizioni di incertezza, calcola la probabilità del completamento del 
progetto sulla base di un tempo di “target” da voi introdotto, tempo che può 
essere cambiato. 

Calcola, anche, per ogni attività, il tempo precedente dell’ultima partenza, 
della prossima fine ed il tempo di fine ultimo. 

Inoltre, calcola il tempo morto e la deviazione standard del tempo per una 
attività. Prima di usare il programma, organizzate il progetto, usando la tecnica 
del grafico PERT o una tabella di precedenze. Per usare il programma introducete 
il numero di attività del progetto, includendo l’attività “simulata”. Per ogni 
attività date il nodo iniziale e finale seguiti dai tempi: ottimistico, più probabile, 
pessimistico di tale attività. 

Quando avrete introdotto ogni attività, controllate che ogni entrata Nodo di 
partenza sia maggiore del precedente nodo, se così non fosse, il programma vi 
domanderà di riintrodurre i nodi di inizio e di fine. 


Note al programma 

Il programma prevede 100 attività, se volete cambiare tale numero modifica¬ 
te la linea 60 nel modo seguente: 

60 DIM A(J,2),S(I),F(I),E(I,2) 

Sostituite l’espressione I col massimo da voi desiderato. 

Per ogni attività può esistere un tempo morto negativo, comunque il pro¬ 
gramma non ne tiene conto nei tempi di partenza e di fine o nella lunghezza della 
via critica. 


Esemplo 

Harriet ha acquistato una casa vittoriana. Essa richiede al suo appaltatore di 
fornirle un albero dei tempi stimati per ogni atto di ammodernamento. La sua 
carta PERT, e la sua tabella di precedenza sono le seguenti: 
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5 




Attività 

(1 tempi sono dati in giorni) 

Nodo 

Partenza 

Nodo 

finale 

Tempo 

Ottimistico 

Tempo più 
Probabile 

Tempo 

Pessimistico 

1. Raschiamento esterno 

1 

2 

1 


4 

2. Rimozione tappezzeria 

1 

3 

2 


5 

3. Sostituzione Rubinetteria 

1 

4 

3 


7 

4. Tinteggiatura esterna 


5 

2 

3 

6 

5. Attività Simulate 


6 

0 

0 

0 

6. Sistemazione pavimento 


6 

1 


2,5 

cucina 




■ 


7. Tinteggiatura esterna 2 


■ 

1.5 


4 

mano 






8. Tinteggiatura muri interni 



2 


3 

9. Rifiniture pavimento legno 

IHfli 

8 

2 

mi 

5 


Quale risposta avrà eseguendo il programma? Quale è il tempo minimo per 
completare il progetto? Quale è la probabilità di completare il progetto un giorno 
prima di quanto aspettato? 

Risposta: Il tempo minimo per completare il progetto è di 12,916 giorni, la 

probabilità di completarlo in 11,916 giorni è di circa il 12,96%. 

TECNICA DI VALUTAZIONE 
E SEVISIOHE DEI PROGRAMMI 

INTRODUCI IL NUMERO DI 
ATTIVITÀ IN QUESTA RETE? 3 


-ATTIVITÀ 1 - 

INTRODUCI NODO INIZIO.. NODO FINE 

? 1 .. 2 

INTRODUCI TRE TEMPI STIMATI 

PER QUESTA ATTIVITÀ' <A,M,B>? 1,2 4 

-ATTIVITÀ 2 - 

INTRODUCI NODO INIZIO, NODO FINE 

? I , 3 

INTRODUCI TRE TEMPI STIMATI 

PER QUESTA ATTIVITÀ' A,M,D>? 2,5,5 

-ATTIVITÀ' 3 - 

INTRODUCI NODO INIZIO, NODO FINE 

INTRODUCI TRE TEMPI STIMATI 

PER QUESTA ATTIVITÀ <A,M,B>? 3,4,7 
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__-ATTIVITÀ' 4 - 

INTRODUCI NODO INIZIO, nodo fine 

i 2 , 5 

introduci tre tempi stimati 

per QUESTO RTTIVITfl' <A,M,B>? 2,3,5 


_ATTIVITÀ' 5 - 

introduci nodo inizio, nodo fine 

-■> 3 , 6 

introduci tre tempi stimati 

per QUESTA ATTIVITÀ' 'A,M,B>? 0,0,0 


-ATTIVITÀ' 5 - 

INTRODUCI NODO INIZIO, NODO FINE 
-■4,5 

INTRODUCI TRE TEMPI STIMATI 

PER QUESTA ATTIVITÀ' <A,M,B>? 1 , 2 , 2.5 


-ATTIVITÀ' 7 - 

INTRODUCI NODO INIZIO, NODO FINE 

^ 5 , 7 

INTRODUCI TRE TEMPI STIMATI 

PER QUESTA ATTIVITÀ' <A,M,B>? 1.5 , 2 , 4 


-ATTIVITÀ' 8 - 

INTRODUCI NODO INIZIO, NODO FINE 

? 6 , 7 

INTRODUCI TRE TEMPI STIMATI 

PER QUESTA ATTIVITÀ' <A,M,B>? 2,3,3 

-ATTIVITÀ' 9 - 

INTRODUCI NODO INIZIO, NODO FINE 

? 7 , 8 

INTRODUCI TRE TEMPI STIMATI 

PER QUESTA ATTIVITÀ' <A,M,B>? 2,4,5 


ATTIVITÀ' 1 <DA NODO 1 A NODO 2 > 

E UN EVENTO NON-CRITICO. 

DURATA PREVISTA- 2.167 DEVIAZIONE STANDARD: .5 

PRIMA PARTENZA: 0 ULTIMA PARTENZA: 1.333 

PRIMO ARRIVO' 2.167 ULTIMO ARRIVO: 3.5 

TEMPO DI ATTESA: 1.333 


ATTIVITÀ' 2 CDA NODO 1 A NODO 3 > 

E' UN EVENTO NON-CRITICO. 

DURATA PREVISTA: 3.167 DEVIAZIONE STANDARD: .5 

PRIMA PARTENZA: 0 ULTIMA PARTENZA: 3.083 

PRIMO ARRIVO 3.167 ULTIMO ARRIVO: 6.25 

TEMPO DI ATTESA: 3.033 


ATTIVITÀ' 3 <DA NODO 1 A NODO 4 > 

E' UN EVENTO CRITICO. 

DURATA PREVISTA: 4.333 DEVIAZIONE STANDARD .667 

PARTENZA NON AL PIU' TARDI DI : 0 

DEVE ESSERE COMPLETATA ENTRO 4.33300001 


ATTIVITÀ' 4 <DA NODO 2 A NODO 5 > 

E' UN EVENTO NON-CRITICO. 

DURATA PREVISTA: 3.333 DEVIAZIONE STANDARD: .667 

PRIMA PARTENZA: 2.167 ULTIMA PARTENZA: 3.5 

PRIMO ARRIVO: 5.5 ULTIMO ARRIVO: 6.833 

TEMPO DI ATTESA 1.333 
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ATTIVITÀ' 5 (Ufi NOHO 3 A NODO 6 > 

E UN EVENTO HON-CRITICO. 

DURATA PREVISTA- d DEVIAZIONE STANDARD - 0 

PRIMA PARTENZA- 3.16? ULTIMA PARTENZA 6.25 

PRIMO ARRIVO 3.167 ULTIMO ARRIVO 6.25 

TEMPO DI ATTESA- 3.833 


ATTIVITÀ' 6 (DA NODO 4 A NODO 6 
E UN EVENTO CRITICO. 

DURATA PREVISTA- 1.317 DEVIAZIONE STANDARD- .25 
PARTENZA NON AL PIU"' TARDI DI 4.333 
DEVE ESSERE COMPLETATA ENTRO- 6.25 


attività- 7 -da nodo 5 a nodo 7 > 

E UN EVENTO NON-CRITICO. 

DURATA PREVISTA 2.25 DEVIAZIONE STANDARD- .417 

PRIMA PARTENZA 5.5 ULTIMA PARTENZA 6.S33 

PRIMO ARRIVO 7.75 ULTIMO ARRIVO: ?.0S3 

T EMPO DI ATTESA 1.333 


ATTIVITÀ- 8 -DA NODO 6 A NODO 7 
E UN EVENTO CRITICO. 

DURATA PREVISTA: 2.833 DEVIAZIONE STANDARD .167 
PARTENZA NON AL PIU TARDI DI 6.25 
DEVE ESSERE COMPLETATA ENTRO 3.033 


ATTIVITÀ- ? (DA NODO 7 A NODO 3 ; 

E- UN EVENTO CRITICO. 

DURATA PREVISTA 3.833 DEVIAZIONE STANDARD .5 
PARTENZA NON AL PIU' TARDI DI 3.083 
DEVE ESSERE COMPLETATA ENTRO 12.316 

LA LUNGHEZZA DEL PERCORSO CRITICO E' 12.316 
PIU- 0 MENO .836153128 

INTRODUCI IL TEMPO DI COMPLETAMENTO DESIDERATO <9 PER FINE)? 11.316 
LA PROEALITA' DI COMPLETAMENTO DELLA 
DURATA DI 11.316 E' .123551383 


Problemi pratici 

1. Un progetto è basato su questa tabella: 


Attività 

Tempo 

ottimistico 

Tempo 
più probabile 

Tempo 

pessimistico 

1-2 

0,5 

1 

2 

2-3 

1 

2 

3 

2-4 

1 

3 

5 

3-5 

3 

4 

5 

4-5 

2 

3 

4 

4-6 

3 

5 

7 

5-7 

4 

5 

6 

6-7 

6 

7 

8 

7-8 

2 

4 

6 

7-9 

5 

6 

8 

8-10 

1 

2 

3 

9-10 

3 

5 

7 
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Quale è la lunghezza del percorso critico? Quale è la probabilità di completar¬ 
lo in 30 settimane? 

Risposta: La lunghezza del percorso critico è di 27,25 settimane, la probabili¬ 
tà di completare il progetto in 30 settimane è dello 0,98095. 

2. Questa è un’altra tabella: 


(I tempi sono dati in giorni) 


Attività 

Tempo 

Tempo 

Tempo 


ottimistico 

più probabile 

pessimistico 

1-2 

1 

4 

7 

1-3 

1 

6 

11 

2-4 

3 

5 

13 

3-4 

2 

7 

12 

3-5 

2 

5 

8 

4-5 

6 

8 

16 

4-6 

2 

5 

14 

5-7 

3 

4 

5 

6-7 

1 

2 

3 


Quali sono i tempi morti per le attività non critiche della rete? Quanti giorni 
sono necessari per completare il progetto se vogliamo avere il 90% di sicurezza del 
suo completamento? 

Risposta Tempi Morti: Attività 1: 3 giorni; Attività 3: 3 giorni; Attività 5: 
9,667 giorni; Attività 7: 5 giorni; Attività 9:5 giorni. Il progetto deve essere fatto in 
29,725 giorni con un livello del 90% 


Listing del programma 


SO REM VALUTAZIONE DEI PROGRAMMI E TECNICA DI REVISIONE <PERT> 

26 REM MATRICE 'A' = NODI I'I INIZIO E FINE PER OGNI ATTIVITÀ' 

30 REM MATRICE S = TEMPO DI PARTENZA INIZIALE DI OGNI ATTIVITÀ' 

40 REM MATRICE 'F' = TEMPO DI ARRIVO FINALE PER OGNI ATTIVITÀ' 

50 REM MATRICE 'E' = DURATA PREVISTA E VARIANZA DI ATTIVITÀ' 

SO DIM ACIDO,2>,S<100>,F<10O>,E<100,2) 

65 DEF FNRCZ1>=!NTCZ1*1000+.5V1000 
70 PRINT "TECNICA DI VALUTAZIONE" 

?0 PRINT "E REVISIONE DEI PROGRAMMI" 

SO PRINT 

100 PRINT “INTRODUCI IL NUMERO DI" 

119 PRINT "ATTIVITÀ' IN QUESTA RETE".: 

120 INPUT N 
130 PRINT 

14D FOR 1=1 T0 N 
150 PRINT 

160 PRINT "-ATTIVITÀ'"; II*-" 

STO PRINT "INTRODUCI NODO INIZIO, NODO FINE" 

ISO INPUT R<I,1),A(1,2) 

1?0 IF AC 1,1 > CAC1,2) THEH 280 
200 IF ACI,1)<N THEH 280 
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210 IF A<I,2XN THEH 2S0 

220 FRINT "IL NODO DI INIZIO DEVE ESSERE RAPPRESENTATO DA UN NUMERO MINORE 
230 PRINT "DI QUELLO CHE RAPPRESENTA IL NODO FINALE.. E IL NODO FINALE DEVE 
240 PRINT "ESSERE MINORE DEL NUMERO DI ATTIVITÀ'." 

250 PRINT " ***REINTRODUCI I DATI***" 

260 PRINT 
270 GOTO 150 

230 PRINT "INTRODUCI TRE TEMPI STIMATI" 

290 PRINT "PER QUESTA ATTIVITÀ' <A,M,B>"; 

300 INPUT A1,M,B 

310 REM E<I,1> E' LA DURATA PREVISTA 
320 E<I, 1>=FNR<(A1+M#4+B.V6> 

330 REM Ed,2> E' LA VARIANZA DELLA ATTIVITÀ' 

340 E< 1,2>=<FNR«B-A1V6» 12 
350 3d>=0 
360 Fd>=0 
370 next I 

330 REM CICLO PER CALCOLARE I TEMPI DI INIZIO DELLA RETE 
390 FOR 1=1 TO H 

400 IF S<A<I.2»>=S(A<I. 1»+E<I.. 1) THEN 420 
410 S(A<I,2>>=3<A<I,m+E<I,l> 

420 NEXT I 

430 F<ft<N,2»=S<A<N,2>> 

440 REM CICLO PER CALCOLARE I TEMPI DI ARRIVO DELLA RETE 
450 FOR I=N TO 1 STEP-! 

460 IF F<A<I,1>>=0 THEN 490 

470 IF F<fi<M»3F<Aa,2»-E<I.l> THEN 490 

4S0 GOTO 500 

490 F<fKI, 1))=F<A<I,2»-E<I.1J 

50O NEXT I 

510 V=0 

520 C=0 

530 L=@ 

540 FOR 1=1 TO N 

550 REM CALCOLA IL TEMPO DI SOSTA IN 31 
560 S1=F<A<I.• 2»-S<A<I.■ 1 »-E<1,1 > 

570 PRINT "-* 

530 PRINT 

590 PRINT "ATTIVITÀ'"; I; "(DA NODO"; A(I.. 11; "A NODO"; A(I,2>; ">" 

600 PRINT UN EVENTO "; 

610 IFS1C=1 THEN 630 
620 PRINT "NON-"; 

630 PRINT "CRITICO.” 

640 PRINT "DURATA PREVISTA • “;E<M>; "DEVIAZIONE STANDARD 
650 PRINT SQR<E(I,2>> 

260 IF S1M THEN 740 

670 PRINT "PARTENZA NON AL PIU' TARDI DI : ";S<Ad> 1)> 

530 PRINT "DEVE ESSERE COMPLETATA ENTRO;F<Ad,2>> 

690 REM LA LUNGEZZA DEL PERCORSO VIENE ACCUMULATA IN L.. LA VARIANZA IN V 
"00 IF L3=F(Ad,2>> THEN 720 
710 L=F'Ad,2)> 

720 V=V+E< I.. 2> 

720 G0TG790 

740 PRINT "PRIMA PARTENZA :S(A(1 , 1 »;TAB(25);"ULTIMA PARTENZA "; 

75@ PRINT F<A(I.2))-Ed,0 

760 PRINT "PRIMO ARRIVOS<A<I.1>>+E<I,1>;TAB<24) 

770 PRINT "ULTIMO ARRIVO ";F(A<I,2)> 

7S0 PRINT "TEMPO DI ATTESA : ";S1 
790 NEXT I 
300 PRINT 

310 PRINT "LA LUNGHEZZA DEL PERCORSO CRITICO E' ";L 
•320 P=SQR<V> 

330 PRINT "PIU' 0 MENO“;P 

340 PRINT "INTRODUCI IL TEMPO DI COMPLETAMENTO DESIDERATO (0 PER FINEV; 
•350 INPUT D 
S60 IF D'=0 THEN 1010 

370 REM CALCOLA L'INDICE Z PER LA DURATA DESIDERATA 
330 y=<D-L.VP 

390 REM CALCOLA L'AREA ACCUMULATA SOTTO LA DISTRIBUZIONE NORMALE 

900 REM RIFERIMENTO SOME COMMON BASIC PROGRAMS, TERZA EDIZIONE.. PAG. 123 
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ai fl R=EXP< '• <Vt2.V2>. '2.5065232746 
o'h Ì!=V 

y=i.'< 1 ♦.33267#fiBS<V» 

i'.o t= 1 -R#<. 4361S36*V-. 12016?6*Vt2+. 937298#V *3> 
Ó?ó IP THE,J ?7C ' 

ign T=l-T 

W, PRIMI “LA PROSALITA' DI COMPLETAMENTO DELLA" 
ai© PRIMI "DURATA DI":D;"E'";T 
ìa@ PRIHT 
;uiO GOTO 340 
IgiO END 
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ALGORITMO DI TRASPORTO 


Questo programma permette di trovare quale è il modo più efficace, rispetto 
al costo, per trasportare una materia prima dalla sorgente alle varie destinazioni. 
La materia prima può essere di vari tipi: manufatti, persone ecc. Un programma 
lineare potrebbe essere usato per risolvere questo tipo di problemi, ma con questo 
programma non è necessario porre i prezzi come funzioni, qui non dovete 
esprimere dei dati come coefficienti di una serie di equazioni lineari. 

Per usare il programma dovete sapere quante sorgenti vi sono, e la loro 
capacità di generazione. Il numero di destinazioni richiesto, e la richiesta della 
risorsa da parte di ogni destinatario. Infine, dovete conoscere il costo del traspor¬ 
to della materia prima da ogni sorgente ad ogni destinazione. Il programma vi 
chiederà tutte queste informazioni, quindi è necessario che voi vi organizzate 
prima di avviarlo. 

Se le sorgenti possibili non sono uguali alla domanda, il programma automati¬ 
camente assegna la differenza ad una sorgente “simulata” (offerta minore della 
domanda), o ad una destinazione “simulata” (offerta maggiore della domanda). 
Alla fine del programma viene fornita ogni assegnazione della materia prima, il 
suo costo di trasporto per unità ed il suo costo totale. Se in un dato problema 
esistono delle variabili “simulate”, le assegnazioni relative ad esse vengono 
segnate fuori dal programma per una vostra migliore informazione. 


Note al programma 

Questo programma permette nove sorgenti e nove destinazioni. Se voi volete 
cambiare tale numero con un altro, modificate le linee 20 e 30 come segue: 


20 DIM S(I.2),D(J,2),S1(I*J,2),C(I,J),A(I,J),Y(X,2),M(3) 

30 DIM R1(I),K1(J) 

Sostituite l’espressione I col vostro massimo numero di sorgenti, sostituite J 
con il massimo numero di destinazioni ed X con la somma del numero massimo di 
sorgenti più il numero massimo di destinazione meno 1. 

Potrete inoltre, cambiare il programma al fine di ricevere i dati dallo stato 
DATI, piuttosto che dallo stato INPUT. In tal caso il programma va modificato 
come indicato nella sezione “Opzione”. 
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Esempio 


Giovanni Scotti possiede una ditta di disinfestazione organica. Egli ha tre 
aerei con capacità: 65, 150 e 80 galloni (1 gallone = 4,545 litri) di insetticida. 
Domani quattro fattorie devono essere disinfestate. Giovanni, sulla base delle 
misure dei campi, calcola che si debbano utilizzare: 100, 45, 90 e 60 galloni di 
insetticida. Poiché, ogni aereo ha diverse capacità, ed i campi sono in località 
diverse, Giovanni stima il costo di ogni gallone di insetticida come segue: per 
l’Aereo 1 sul primo campo 0,05, sul secondo campo 0,12, sul terzo campo 0,08, sul 
quarto campo 0,11. Per l’Aereo 2 sul primo campo 0,04, sul secondo campo 3,03 
sul terzo 0,06 sul quarto 0,04. Per l’aereo 3 sul primo campo 0,09, sul secondo 
campo 0,14, sul terzo 0,13, sul quarto 0,18. Con queste entrate quale sarà 
l’assegnazione per l’indomani, e quale il costo di trasporto? 

Risposta: L’assegnazione ottimale è la seguente: Aereo 1 sul primo campo 
dove sparge 20 galloni e sul terzo campo dove ne sparge 45. Aereo 2 sul secondo 
campo dove sparge 45 galloni, sul terzo campo dove ne sparge 45 e sul quarto 
campo dove ne sparge 60. L’aereo 3 completerà il campo uno che era stato 
irrorato parzialmente dal primo aereo. Il costo totale sulla base delle entrate è 
stimato essere di $ 18,25. 


:-?jmerc ri s g e ssntig s 
ltero ri destinazioni? 4 
rspjiciTB' rcs la. sorgente i ? « 

_ ARAC 1TA PER LA SORGENTE — ? ISO 
rflPflCITfi' ?EF. Lfl SORGENTE 0 T SC 
DCNfiNWt TEE LA DESTINAZIONE 1 ? 100 

domanda per lo sestinozione z ? tz 
domanda ree lr sesti nazione o ? so 

DOMANDA -'E.-: LA DESTINAZIONE 4 ? SC¬ 


ALDA TESTINAZIONE 1 
ALLA DESTINAZIONE 2 
ALLA DESTINAZIONE 3 
ALLA DESTINAZIONE 4 
ALLA DESTINAZIONE I 
ALLA DESTI.NAZIONE 2 
ALLA DESTINAZIONE 3 
ALLA DESTINAZIONE 4 
ALLA DESTINAZIONE 1 
ALLA DESTINAZIONE 2 
ALLA DESTINAZIONE 3 
ALLA DESTINAZIONE 4 
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: . 23 
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SORGENTE 
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? .04 

■SORGENTE 

DALLA 
. 03 

SORGENTE 
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: .se 

SORGENTE 

DALLA: 

SORGENTE 

DALLA 
' .0A 

SORGENTE 

DALLA 
' .14 

SORGENTE 
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SORGENTE 
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SORGENTE 
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PORGESTE SE3T S UHITf»' 

* * j;cr 

ÈRGENTE SEST ’# UKITR' 

" * -C 

SÓRGENTE SEST '* ’JHITfi' 

“ 7- _«c- 

SÓRGENTE SEST ’» -JNITfi' 

7" " 

SÓRGENTE SEST *# '.'HÌTA' 

GCROENTE SEST ’# Gii ITA 

S 4 =9 

SOSTO TOTALE SELLA SOLICI OHE 

’.’UCI RIUTILIZZARE QUESTO 

:C .C GRAMMI CON NUOVI IRTI 'S. N>? N 

Problemi pratici 

1. La Skinheads Motorcycle Enthusiasts Society ha tre gruppi nello stato, e 
tre imminenti incontri con clubs concorrenti. Sulla base dei rapporti, la Skinheads 
sa che dovrà incontrare rispettivamente 35, 20 e 61 persone. I suoi tre gruppi sono 
formati rispettivamente da: 75, 19 e 22 membri. La distanza in chilometri fra il 
primo gruppo e la prima località è di 35 km., fra questa e la seconda località è di 80 
km., e fra questa e la terza località è di 60 km. Le distanze del secondo gruppo 
sono: 90 km. alla prima località, 40 km. alla seconda, e 55 km alla terza località. Il 
terzo gruppo dista, invece, km 50 dalla prima località, km 28 dalla seconda e km 
65 dalla terza. 

Quale sarà l’assegnazione? Che distanza in km deve percorrere ogni membro 
del club per giungere a destinazione? 

Risposta: 35 persone del primo gruppo nella prima località, 20 persone del 
terzo gruppo alla seconda località, 40 persone del primo gruppo alla terza località, 
19 persone del secondo gruppo alla terza località e 2 persone del terzo gruppo alla 
terza località. Ogni membro del gruppo dovrà percorrere 4,987 Km. (consideran¬ 
do una persona per moto). 

2. Data la seguente tabella quale è il trasporto ottimale? E il suo costo? 


Progetto 

Domanda 

settimanale 

Impianto 

Capacità 

settimanale 

A 

170 

J 

130 

B 

250 

K 

200 

C 

Costi: 

100 

L 

190 

Da 

$ a A 

$ a B 

$ a C 

J 

2 

5 

5 

K 

9 

13 

9 

L 

2 

4 

6 
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Risposta: 70 unità dall’iinpianto J al progetto A, 60 da J a B, 100 da K ad A, 
100 da K a C, e 190 da L al progetto B. 


Listlng del programma 


10 REM ALGORITMO DI TRASPORTO 

20 dim s<i 0 , 2 >,Dae, 2 >,si< 20 , 2 >,ca 0 ,i 0 >,fta 0 ,i0>,va0,2),M<3> 

30 DIM RI<10),K1<10) 

40 FRINT "ALGORITMO DI TRASPORTO" 

50 PRINT 

60 PRINT "NUMERO DI SORGENTI"; 

70 INPUT S2 

80 IF S2<1 THEN 60 

90 PRINT "NUMERO DI DESTINAZIONI"; 

100 INPUT DI 

110 IF DI<1 THEN 90 

120 REM INTRODUCI LA CAPACITA" DI PRODUZIONE PER OGNI SORGENTE 
130 T1=0 

140 F0R R=1 TO S2 

150 PRINT "CAPACITA" PER LA SORGENTE";R; 

160 INPUT S(R,1> 

170 S<R,2)=S(R,1> 

180 T1=T1+S<R,1) 

190 NEXT R 
200 T2=0 

210 REM INTRODUCI LA DOMANDA DI OGNI DESTINAZIONE 
220 FOR R=1 TO DI 

230 PRINT "DOMANDA PER LA DESTINAZIONE";R; 

240 INPUT D<R,1> 

250 D<R,2)=D<R,1> 

260 T2=T2+D<R,1> 

270 NEXT R 

280 REM LOOP PER INTRODURRE IL COSTO DI TRASPORTO 
290 PRINT “INTRODUCI IL COSTO DI TRASPORTO : “ 

300 FOR R=1 TO S2 

310 REM INIZIALIZZA GLI ELEMENTI DELLA MATRICE SIO 
320 S1<R, 0=0 
330 S1(R,2>=0 
340 FOR K=1 TO DI 

350 PRINT "DALLA SORGENTE";R;"ALLA DESTINAZIONE";K 
360 INPUT C<R,K) 

370 IF C(R,KK0 THEN 350 
380 NEXT K 
390 NEXT R 

400 REM LA MATRICE E" STATA INTRODOTTA —INIZIA LA PRIMA SOLUZIONE 
410 S0=0 
420 D0=0 

430 IF T1>=T2 THEN 480 

440 REM L" OFFERTA DEVE ESSERE UGUALE ALLA DOMANDA 

445 REM ASSEGNA LE RIGHE E COLONNE SIMULATE 

450 S<S2+1,1>=T2-T1 

460 S<S2+1,2)=T2-T1 

470 S0=1 

480 IF T2=T1 THEN 510 
490 DCD1+1,1)=T1-T2 
500 D<D1+1,2)=T1-T2 
510 D2=0 
520 T3=0 

530 REM PARTE LA SOLUZIONE CON LA REGOLA ANGOLO NORD-OVEST 
540 FOR R=1 TO S2+S0 

550 REM SE L'OFFERTA ALLA RIGA R E' TERMINATA PASSA ALLA PROSSIMA SORGENTE 

560 IF S<R,2>=0 THEN 770 

570 REM ALLOCA OFFERTA PER LA DOMANDA 

580 FOR K=1 TO D1+D0 
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=,90 REM SE LA DESTINAZIONE K £'TERMINTA, INCREMENTA L'INDICE DI COLONNA 

600 IF D(K,2>=0 THEN 760 

eie IF S(R/2>=0 THEN 760 

g20 IR S<R,2KD<K,2> THEN 690 

630 REM PONI FUORI QUADRO SE DOMANDA OOFFERTA 

640 A<R,K>=D<K,2> 

650 S<R,2)=S<R,2)-D(K,2) 

660 D<K,2>=0 
670 GOTO 720 

6 SO REM PONI FUORI QUADRO SE DOMANDA > OFFERTA 
690 A<R,K>=S<R,2> 

700 D<K,2>=D<K,2>-S<R,2:> 

710 S(R,2>=0 
720 D2=D2+1 

730 T3=T3+(A<R,K>*C<R,10> 

740 SKD2,1)=R 
750 S1<D2,2>=K 
760 NEXT K 
770 NEXT R 

780 REM CONTROLLA LA SOLUZIONE DEL PRIMO STADIO 

790 IF D2=S2+S0+D1+D0-1 THEN 1140 

800 REM RISOLVI LA SOLUZIONE DEGENERE 

810 R=0 

820 K=0 

330 1=0 

840 1=1+1 

350 IF A<Sia,l>,Sl<I,2>)=D<Sl<I-2:>,l> THEN 870 
860 IF A<S1<I,1),S1<I,2>K>S<S1<I,1>,1> THEN 900 
S70 R=S1<I,1> 

880 K=SKI,2> 

390 GOTO 910 

900 IF KD2+D0 THEN 840 

910 REM SE R & K SONO 0, LA MATRICE NON E' DEGENERE 

920 IF R+K=0 THEN 1140 

930 IF S1<I-1,2>=K THEN 960 

940 K=S1<I-l,2> 

950 GOTO 1000 

960 IF K=D2+D0 THEN 990 

970 K=K+1 

980 GOTO 1000 

990 K=K-1 

1000 REM INSERISCI UN NUOVO QUADRO NELLA SOLUZIONE 
1010 IF K>S1 < I .• 2?THEN 1030 
1020 1 = 1-1 

1030 FOR J=D1+D0 TO 1+1 STEP-1 
1040 S1<J,1>=S1<J-1,1) 

1050 S1<J,2>=S1<J-1,2> 

1060 NEXT J 
1070 S1<I,1>=R 
1080 S1<I,2>=K 
1090 V<I,1>=0 
1100 V<I,2>=0 
1110 D2=D2+1 
1120 GOTO 300 

1130 REM CALCOLA I VALORI RIMANENTI 

1140 FOR 1=1 TO D1+D0 

1150 K1 < D*-9E9 

1160 NEXT I 

1170 FOR 1=1 TO S2+S0 

1180 RI(I>=-9E9 

1190 NEXT I 

1200 RI<1)=0' 

1210 Ki<sia. 2 >)=c<sia,i),si<i, 2 )) 

1220 R=1 
1230 K=1 
1240 1=1 
1250 1=1+1 

1260 IF K1<S1 <I/2))0-9E9 THEN 1300 

1270 IF RI <S1 ( I .■ 1 >)=-9E9 THEN 1330 

1280 K1<S1<I,2>>*C<S1<I,1>.S1<I,2>>-R1CS1<M>> 
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1290 K=K+1 

1300 IF RKSKI; DJO-9E9 THEH 1330 

1310 R1CS1CI,D>=CCS1CI,0,S1CI,2>>-K1CS1CI,2>> 

1320 R=R+1 

1330 IF ICD2 THEN 1250 
1340 IF K<D1+D0 THEN 1240 
1350 IF RCS2+S0 THEN 1240 
1360 1=1 
1370 MCO=0 

1380 REM TROVA UN ELEMENTO CON L'INDICE PIU'BASSO 

1390 FOR R=1 TO S2+S0 

140O FOR K=1 TO D1+D0 

1410 IF ROSICI, 1) THEN 1450 

1420 IF KOSICI,2) THEN 1450 

1430 1=1+1 

1450 IF MCIKCCR-IO-RICRÌ-KICIO THEH 1490 

1460 MCO=CCR, IO-RI CR>-K1 CIO 

1478 MC2)=R 

1480 MC3>=K 

1490 NEXT K 

1500 NEXT R 

1510 IF MCi:O=0 THEN 2790 

1520 REM TROVA UNA VIA PER IL QUADRO A RIGA R, COLONNA K 
1530 YC1,0=MC2> 

1540 VC1,2)=MC3> 

1550 Q=1 

1560 IF MC2>=S2+S0 THEN I960 

1570 REM M0=RIGA CORRENTE NELLA RICERCA;MI“COLONNA PARTENZA DELLA RICERCA 
1580 M8=VCQ,1> 

1590 M1=1 

1600 REM PARTE LA RICERCA RIGA 
1610 1=0 
1620 1=1+1 

1630 IF 310,1>3M0 THEN 1670 
1640 IF SI<1,1><M0 THEN 1660 
1650 IF S1CI,2»=M1 THEN 1720 
1660 IF ICD2 THEN 1620 

1670 IF (KM THEN 1700 

1639 PRINT "MATRICE DEGENERE" 

1690 GOTO 2390 

170O REM A QUESTO PUNTO NON ESISTE NESSUNA RIGA PROSSIMA 
1710 GOTO 1830 

1720 REM CONTROLLA CHE VCI;'NON SIA GIA'SULLA LINEA CHIUSA 

1730 !<0=0 

1740 FOR .1=1 TO Q 

1750 IF S1CI,1K>VCJ,0 THEN 1730 

1760 IF SICI,2)OVCJ,2> THEN 1780 

1770 X0=1 

1730 NEXT J 

1790 IF X0=0 THEN 1890 

1300 M1=S1CI,1>+l 

1810 IF M1OD1+D0 THEN 1660 

1820 REM LA RICERCA DI RIGA ETALLITA;PONI LE SUCESSIVE COORDINATE 
1323 REM PER LA RICERCA DI COLONNA 
1330 P=YCQ,2> 

1340 P!=VCQ, 0 + 1 
1850 YCQ, 0=0 
1860 YCQ,2>=0 
1870 Q=Q-1 
1380 GOTO 2000 
1890 0=0+1 
1900 YCQ, 0=S1CI,1) 

1910 YCQ,2>=S1CI,2> 

1920 IF QC=2 THEN 1950 

1930 REM SE UNA VI E'CHIUSA SU UNA RICERCA DI RIGA,ESISTE UNA ROUTINE RICERCA 
1940 IF YCQ,2>=MC3> THEN 2340 
1950 M1=V(Q,2>+! 

I960 REM RICERCA AREA COLONNA 

1970 REM P=NUMERO COLONNA SU CUI SI FA LA RICERCA; PORIGA PARTENZA RICERCA 

1980 P=YCQ,2> 
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1990 PI = 1 
9000 K=0 
7010 K=K+1 

; 0 20 IF SKK/1KP! THEH 2040 
9030 IF S1<K,1>=P THEH 2120 
9040 1F K<D2 THEN 2010 

9050 REM ERRORE NELLA RICERCA DELLA COLONNA : ASSEGNA NUOVE COORDINATE PER LA 
9055 REM RICERCA DELLA RIGA 
9050 M0=V<Q,1> 

9070 M1=V<Q,2>+1 
9080 V<Q,1>=0 
9090 Y(Q,2>=0 
2100 Q=Q-1 
2110 GOTO 1510 
2120 ”0=0 

2130 REM ROUTINE DI CONTROLLO: VERIFICA I QUADRI GIR-' USATI 

2140 FOR J=1 TO Q 

2150 IF S1<K,1><>V<J,1> THEN 2180 

2160 IF S1<K,2K>Y<J,2> THEN 2180 

2170 >!0=1 

2180 NEXT J 

2190 IF K0=0 THEN 2250 
2200 P1=S1<Kj1 >+l 
2210 IF PK=S2+S0 THEN 2040 
2220 GOTO 2050 

2230 REM E' STATO TROVATO UN SOLO QUADRO— 

2240 REM AGGIUNGERLO ALLA MATRICE DI PERCORSO CONNESSO 

2250 0=0+1 

2260 V < 0 -■ 1 > =3 1 < K.. 1 > 

2270 V<Q,2>=S1<K,2> 

2280 REM SE IL CAMMINO CHIUDE LA RICERCA DI COLONNA, ESCI DALLA ROUTINE DI 

22S5 REM RICERCA 

2290 IF V<Q,1)=M<2> THEN 2340 

2300 P1=V<Q,1>+1 

2310 M0=V(G,1) 

2320 M1=Y<Q,2>+1 
2330 GOTO 1610 

2340 REM TROVA IL QUADRO A PIU' DASSA LOCAZIONE SUL CAMMINO CONNESSO 
2350 X0=fi<Y<2,1>,V<2,2» 

2360 FOR K=4 TO Q STEP 2 

2370 IF X0<-fl<V<K,l>,V<K>2» THEN 2390 

2380 !<0=A<V(K, 1>,V<K/2)> 

2390 NEXT K i 

2400 REM AGGIUNGERE E SOTTRARRE ALTERNATIVAMENTE X0 DALLE LOCAZIONI DI CAMMINO 
2405 REM CONNESSO 
2410 P=0 

2420 FOR K=!TO Q 

2430 IF K=INT<K,'2>#2 THEN 2460 

2440 A<Y<K,l>,V<K,2>)=A<V<K,l>,V<K-2>>+X0 

2450 GOTO 2630 

2460 A<V<K,1>,V(K,2>)=A<V<K,1),V(K,2))-X0 

2470 IF A<Y<K,1>,V<K,2>»0 THEN 2630 

2480 REM CANCELLA OGNI QUADRO A LOCAZIONE ZER0 

2490 1=0 

2500 P=P+1 

2510 REM SE P>1, LA MATRICE PERDERÀ' DI SIGNIFICATO SE VERRÀ' CANCELLATA, 

2515 REM SALTA 
2520 IF P>1 THEN 2630 
2530 1=1+1 

2540 IF $1<Ij l)OV<K, 1) THEH 2530 
2550 IF S1(I,2.K2V(K,2) THEN 2530 
2560 FOR J=I TO D2 
257G S1(J,1>=S1<J+1,1) 

2580 SI(J,2>=S1<J+l,2> 

2590 NEXT J 
2600 S1<D2,1>=0 
2610 S1<D2,2>=0 
2630 D2-D2-1 

2640 REM INSERISCI UN NUOVO RIQUADRO DAL PRIMO ELEMENTO DI VO 
2650 1=0 
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2660 1=1+1 

2670 IF V<1,1>3S1(1,1) THEN 2660 
2680 IF V(l, 1XSKI, 1> THEH 2700 
2680 IF V(1,2»S1<I,2> THEH 2660 
2700 FOR J=D2 TO I STEP -1 
2710 S1<J+1,1>=S1(J,1) 

2720 SI<J+1/2)=S1(J,2) 

2730 NEXT .1 

2740 S1(I, 1>=V<1, n 

2750 S1<I,2)=V<1,2> 

2760 D2=D2+1 

2770 REM FINE BELLA RILOCAZIONE; CONTROLLO REITERATO 
2730 DOTO 1140 

2790 REM MOSTRA I RISULTATI ED I COSTI BELLA SOLUZIONE 
2800 PRINT 

2310 IF B0+S0=0 THEH 2370 

2320 PRINT "*** SOLUZIONE NON BILANCIATA ***" 

2330 IF D0=0 THEN 2850 

2340 PRINT "ECCESSO OFFERTA < D<B1+D0,1); ■> ASSEGNATO ALLA DESTINAZIONE";DI+D0 

2850 IF 30=0 THEN 2S70 

2360 PRINT "ECCESSO DOMANDA <";S<S2+S8,1); "> ASSEGNATO ALLA SORGENTE";S2+S0 

2S70 X0=0 

2S80 FOR 1=1 TO D2 

2390 PRINT "SORGENTE ","DEST UNITA-'", "COSTO", "COSTO TOT." 

2900 PRINT Sl<I,n,Sl<I,2>,A<Sl<I,l),Sl<I,2>>,C<SlCI, 1 >, SI (1,2)0, 

2910 J=C<S1<I,1),SX<I,2)>*A<SKI,1>,SKI,2)> 

2920 IF J>0 THEN 2950 
2930 PRINT "SIMULATA" 

2940 GOTO 2970 
2950 X0-X0+J 
2960 PRINT J 
2978 NEXT I 
2980 PRINT 

2990 PRINT "COSTO TOTALE DELLA SOLUZIONE ";X0 
3000 PRINT 
3010 PRINT 

3020 PRINT "VUOI RIUTILIZZARE QUESTO" 

3030 PRINT "PROGRAMMI CON NUOVI DATI (S/N)"; 

3040 INPUT X0» 

3050 IF X0t="S" THEN 50 
3060 END 


Opzione 

Se volete evitare di utilizzare lo stato INPUT per introdurre i dati, potete 
cambiare il programma e leggere gli ingressi dallo stato DATA. Ciò è vantaggioso 
nel caso dobbiate considerare un grosso problema di trasporto, o nel caso in cui 
vogliate eseguire il programma con dati leggermente diversi, senza dover riintro¬ 
durre le figure di sorgente, domanda e costo. Per permettere questa possibilità 
modificate lo stato nel modo seguente: 


OPZIONE 

151 REMQUESTI DATI MOSTRANO LA RISOLUZIONE DEL PROBLEMA #1. INSERITE GUI I DATI 

152 DATA 65,150,80 
160 READ S(R,1) 

165 PRINT S(R,1) 

170 S(R,2)=S(R,1) 

130 T1=T1+S(R,1> 

190 NEXT R 

200 T2=0 
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22 % FOR R=flO L m LISTfì DI I,fiTI RICU ™ TE Lfl E0MftND « OGNI BESTINAZIONE 

230 FRI NT "BOMANBA DALLA BEST INAZIONE", R; 

231 REM INSERISCI QUI I BATI BELLA BOMANBA 

232 BATA 100,45,90,60 
240 READ BCR,1) 

245 PRINT DIR,1) 

250 B<R,2>=B<R,1) 

260 T2=T2+B(R,1) 

270 NEXT R 

2S0 REM CICLO BI LETTURA BEI COSTI BI TRASPORTO 
290 PRINT "COSTI BI TRASPORTO : " 

300 FOR R=1 TO 32 

310 REM INIZIALIZZA GLI ELEMENTI BELLA MATRICE SO 
320 S1(R,1>=0 
330 SI<R,2)=@ 

340 FOR K=1 TO BI 

350 PRINT "BALLA SORGENTE",R;"ALLA BESTINAZIONEK; 

351 REM INSERISCI QUI I BATI RIGUARBANTI I COSTI BI TRASPORTO. 

352 BATA. 05,. 12,.08,.11,.04,.03,.06,.04,. 09,. 14,.13,. 18 
360 REAB CiR,K> 

365 PRINT C(R,IO 
330 NEXT K 
390 NEXT R 


Cancellate anche le linee da 2980 fino a 3060. 


Bibliografia 

Chase, Richard B., e Aquilano, Nicholas J. Production and Operations Manage¬ 
ment. Homewood, Ili.: Richard D. Irwin, Ine. 1977. 

Levin, Richard I.,e Kirkpatrick, Charles A. Quantitative ApproachesManagement 
(3za ed.). New York: McGraw-Hill, 1975. 


105 




MACCHINA SVEDESE TEORIA DELLE CODE 

Questo é un problema classico in cui, vi sono X riparatori che utilizzano Y 
macchine. Le macchine sono statisticamente identiche, il loro tempo di decadi¬ 
mento segue una legge esponenziale ed è caratterizzato dal tempo di decadimento 
medio. I riparatori, sono anch’essi statisticamente identici, il tempo da essi 
impiegato per una riparazione completa segue una legge esponenziale ed è caratte¬ 
rizzato dal suo valore atteso. Tutti gli elementi sono mutuamente indipendenti. 

Questo programma è utile, soprattutto, per fornire una analisi del flusso di 
cassa, che permette di stabilire la fattibilità di un particolare rapporto macchina- 
riparatore, quando sono stati assegnati: il salario dei riparatori, il reddito delle 
macchine ed i costi maggiori. 

Per usare il programma, introducete il numero delle macchine, il tempo 
medio di decadimento per macchina, il numero di riparatori ed il tempo medio 
necessario per una riparazione. Potete utilizzare l’unità temporale che preferite, 
basta che utilizziate la stessa unità di misura per tutto il programma. Come uscita 
avrete una varietà di sistemi caratteristici. Se desiderate ottenere una analisi del 
flusso di cassa, dovrete introdurre anche il costo di una riparazione per unità di 
tempo, il costo del possesso di una macchina (costo superiore) per unità di tempo 
ed il reddito totale prodotto da una macchina per unità di volume. Potete usare 
l’unità monetaria che volete (lire, centinaia di lire, pesos, dollari ecc.). 

Esemplo 

La società Ace, ha un totale di 50 automobili, le quali operano attraverso la 
città. Le auto hanno un tempo di decadimento di 300 ore, la società dispone, 
inoltre, di tre riparatori. Ogni riparatore impiega 24 ore per riparare un’auto. In 
ogni istante quante automobili ci si aspetta siano funzionanti? Quante auto 
staranno iniziando la riparazione? Quanto tempo devono attendere prima di 
essere riparate? Quale è il tempo medio di fermata per un’auto? Quanti riparatori 
sono inattivi? I riparatori costano $ 5,25 per ora (compresi i contributi ecc.). Il 
costo del possesso di un’auto è un costo superiore che considera il pagamento 
all’acquisto, il pagamento dell’assicurazione, le spese amministrative, le spese di 
deprezzamento ecc. In questo esempio il costo di possesso di un’auto è di $ 36,00 
per ogni mese, o di $ 0,05 per ora. Quale flusso di cassa generano le auto se esse 
producono un reddito di $ 0,50 per ora? 

Risposta: 37 auto sono funzionanti in ogni istante. 3 sono in riparazione e 10 
attendono di essere riparate. Il tempo medio di fermata, per auto, è di circa 150 
ore. Le 50 macchine producono un reddito medio di $ 0,268842 per ora. 
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L TEMPO MEO IO II ZZI I MENTO PER UNA MACCHINA? ODO 
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L TEMPO ri EIR ARAZìONE 'PER MACCHINAI- PER UN RIPARATORE? 04 





. MACCHINE NO. MACCHINE MG. PIPARATORI 
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49 

50 


72C0E783E-CC 
3.140:-i I?7E-03 
C.2?330O6eE-03 
2.02111O53E-03 
1.18572348E-03 
È!04005131E-04 
I.5413603E-04 
1.73428347E-04 
3.S123G347E-05 
I.2O4373S3E-05 
1.SS586619E-Q5 
5.S6346477E-0E 
2.487E3351E-06 
S.S24O04I8E-07 
2.733ES134E-07 

2 . I38É8407E-Ó8 
c ’-. 1°*'P4* T^E-03 
I ] l Ó324É24E-0? 

1. 0C312E32E-1O 
:.3Ò:oc2iie-ii 

40133013E-12 
4.58475856E-13 

2. "‘3500C84E-14 
2.00303E9-8E-15 
z. 34139I85E-17 


29 

30 
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?*• 


42 

43 

44 

4È 


°ER CONTINUARE/ PREMI 


$ " RETUR! r? C 
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CARATTERISTICHE TEL SISTEMA 


vjr> SI MACCHI ME = S? 

Óc“PO MEDIO HI CEDIMENTO PER MACCHINA = SCO UNITA" HI TEMPO 
■ir-. HI RIPARATORI = S 

VrMPO MEDIO HI RIPARAZIONE PER RIPARATORE» 24 UNITA" HI TEMPO 
NUMERO HI MACCHINE PER RIPARATORE = 16.6666667 

«OB. III. SISTEMA HI ASSISTENZA E" VUOTO) = 1. ASSI 1 ASSE-OS 

OROH. 'NESSUNA MACCHINA E IN ATTESA HI ASSISTENZA) = .344A0674S7 

•j"MEEC HI MACCHINE SPERANTI - S7.CS75S55 
NUMERO HI MACCHINE INATTIVE = 12.P620145 
i'‘MERO HI MACCHINE IN LINEA HI ATTESA = A. AAA2ASS 
‘P'MERO HI MACCHINE IN LINEA HI ATTESA "NON VUOTA = 10. 46A44S7 
MI. • INATTIVITÀ" •' PER MACCHINA = 104.AA2A1 UNITA' HI TEMPO 

-r-po meh :c r: attesa per macchina = so. sassi 00 unita" hi tempo 

NUMERO HI RIPARATORI INATTIVI * .11501?S5 

‘•ER CONTINUARE. PREMI 'C' * 'RETURN'? C 
COEFFICIENTE HI PERDITA" PER MACCHINE = FRAZIONE HI TEMPO IN SUI 
una' MACCHINA E' INATTIVA COME CONSEGUENZA SELLE CARATTERISTICHE 
SEL SISTEMA - .:0HSO53S£ 

COEFFICIENTE IT PERDITA" PER RIPARATORI = FRAZIONE HI TEMPO IN SUI 
UN RIPARATORE E INATTIVO SOME CONSEGUENZA SELLE CARATTERISTICHE 

-ci r-7“' r £Mc — jq.j- ^ 


DIGITA I PER ANALISI TEI FLUSSI HI CASSA 

SVESTA ANALISI PRESUME CHE I RIPARATORI SIANO PACATI A" UNITA" 
"‘CHETARIE PER UNITÀ HI TEMPO , OHE I_ COSTO FÌSSO SEL POSSESSO HI 
CÒNI MACCHINA SIA 'B ' JMITÀ""fE.R UNITA' HI TEMPO' E CHE* 
u.p OUANHO E IN FUNZIONE E IN 0PA20 IT PRODURRE 'C 

UNITA' HI -ESIBITA PER UNITA' HI TEMFO. 

INTRODUCI IL COSTO BEL RIPARATORE PER UNITA' HI TEMPO. 'A'O 0.20 
'NT-''TUOI ’L '"OSTO ■"'"SO -'ER l 'HI"FA' HI T M pr:. £" r, ?L ^OASESSO 

Di una màcchina' 

-• ?=; 


INTRODUCI LA RENDITA TOTALE PRODOTTA HA UNA MACCHINA OPERANTE, 

PER UNITA’ HI TEMPO OPERATIVO? .0 

-LUSSO HI CASSA MEDIO CENERATE: HALLE COMBINAZIONE HI 50 
MACCHINE MANTENUTE HA 0 RIPARATORI E' -2S0-S42704 UNITA' MONETARIE 
PER UNITA' DI TEMPO. 


Problemi pratici 

Se supponiamo che la società Ace del precedente esempio, investa $ 65,00 per 
macchina per rendere più duraturi i motori e per fare in modo che il tempo medio 
di decadimento diventi di 305 ore. Quale flusso di cassa produrranno le macchine? 
Quanto tempo passerà prima che la Ace abbia recuperato il suo investimento di $ 
3.250,00? 

Risposta: Le macchine producono un reddito medio di $ 0,525136 per ora. 
L’investimento viene recuperato in 18 mesi. 
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Listing del programma 


i0 PRINT "MACCHINA svedese" 

23 REI* -- CAMBIA LE DIMENSIONI 5: a:: AL .'SUMERO MASSIMO 21 MACCHINE 

sii s::oo> 

40 PRInT 

53 PRINT "INTRODUCI IL NUMERO IELLE MACCHINE; IL TOTALE BEVE ESSERE 21." 

ZO VIPUT M 

IO PRINT "INTRODUCI IL TEMPO MEDIO II CEDIMENTO PER L'HA MACCHINA"; 

SO INPUT PI 

so r=i.'Fi 

108 PRINT ''INTRODUCI IL NUMERO DI RIPARATORI"; 

110 INPUT N 

120 PRINT "INTRODUCI IL TEMPO DI RIPARAZIONE .PER MACCHINA) PER UN RIPARATORE" 
133 INPUT RI 
140 R=l. 'RI 
150 PRINT 

ISO REM — INIZISLIZZA LE VARIABILI 
170 FoR 1=1 TO N+l 

loo a<;:=o 

ISO NE!iT I 
200 CK1' = 1 
210 E1=0 
220 E2=0 
200 E3=3 
240 P0=0 

250 REM -- CICLO PER CALCOLARE LE PROBABILITÀ' PER OGNI MACCHINA 
260 0=0<1) 

270 FOR J=0 TO N-l 
230 REM — :<=Ì1IN<JH,M> 

230 K=M 

ooo :f jhom then 020 

010 K=JH 

320 3:J*2>=':N-J)*F*Q<J*1).'K,'R 
333 2=3«3(J*2) 

340 ne::t : 

oso if a<i)wi then ose 

OSO 3'1>=1.'S 
370 GOTO 260 
ISO PRINT 

030 PRINT "IL SISTEMA SI BICE 'IN STATO J' SE J MACCHINE SONO" 

•100 PRINT "FUORI 'JSO. LA DISTRIBUZIONE BIIPRCBABILITA ' STAZIO-" 

418 PRINT "MARIA SUOLI STATI POSSIBILI. DA 0 A";H;" E ALTRE" 

420 PRINT "CARATTERISTICHE INTERESSANTI.- SEGUONO." 

430 PRINT 

440 PRINT "STATO","PROBABILITÀ' 

442 PRINT "NO. MACCHINE HO. MACCHINE NO. RIPARATORI" 

450 PRINT " SPERANTI INATTESA INUTILIZZATI" 

460 FOR J=1 TO N+l 
470 0=N-J<-1 
4SO M=J-M-i 
438 IF «08 THEN 520 
500 W=0 

518 PO=P0*S<J) 

520 I=M-JM 

538 IF 130 THEN 550 

540 1=0 

558 IF 1CM THEN 570 
560 I=M 

570 PRINT " ";J-l,a(J),0,W,I 

5S0 E1=E1+H#Q<J) 

538 E2«E2*I*£KJ> 

680 E3=E3+C*Q<J> 

618 NE54T J 
520 PRINT 

530 PRINT "PER CONTINUARE, PREMI 'C' & 'RETURN'"; 

548 INPUT Zt 
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r.50 FRI UT 

$£0 PRIHT TABC15); ''CARATTERI STI CHE BEL SISTEMA" 

570 PRIHT TAB<15>; "- 

$38 PRIHT "HO. BI MACCHINE =";N 

£90 PRIHT "TEMPO MEDIO DI CEDIMEHTO PER MACCHINA =";F1;"UNITA' DI TEMPO 
70C PRIHT "NO. DI RIPARATORI =";M 

710 FRINT"TEMPO MEDIO DI RIPARAZIONE PER RIPARATORE»";RI;"UNITA'.DI TEMPO" 

720 PRIHT "NUMERO DI MACCHINE FSR RIPARATORE =";H/M 
730 PRIHT 

740 PRIHT "F'ROB. <IL SISTEMA DI ASSISTENZA E' VUOTO =";aa> 

750 PRINT "PROB. {NESSUNA MACCHINA E' IH ATTÈSA DI ASSISTENZA) =";P0 
760 PRIHT 

770 PRIHT "NUMERO DI MACCHINE OPERANTI =";E3 

7S0 PRINT "NUMERO DI MACCHINE INATTIVE =";N-E3 

790 PRINT "NUMERO DI MACCHINE IN LINEA DI ATTESA =";E1 

3O0 PRIHT "NUMERO DI MACCHINE IH LINEA DI ATTESA 'NON VUOTA' =";E1/<1-P0> 

SIO PRIHT "T.M. INATTIVITÀ" PER MACCHINA ="; <N-E3)#F1.'E3; "UNITA' DI TEMPO" 
S20 PRIHT "TEMPO MEDIO DI ATTESA PER MACCHINA =";E1*F1.'E3; "UNITA' DI TEMPO" 

330 PRINT "NUMERO DI RIPARATORI INATTIVI =";E2 
.340 PRIHT 

350 PRIHT "PER CONTINUARE.. PREMI 'C' S 'RETURN' 

360 INPUT Zt 

STO PRINT "COEFFICIENTE DI PERDITA' PER MACCHINE = FRAZIONE DI TEMPO IN CUI" 
330 PRINT " UNA MACCHINA E' INATTIVA COME CONSEGUENZA DELLE CARATTERISTICHE" 
390 PRINT " DEL SISTEMA =";E1.'N 
900 PRINT 

910 PRINT "'COEFFICIENTE DI PERDITA' PER RIPARATORI = FRAZIONE DI TEMPO IN CUI 
920 PRINT " UN RIPARATORE E' INATTIVO COME CONSEGUENZA DELLE CARATTERISTICHE" 
930 PRINT " DEL SISTEMA =";E2,'M 
940 PRINT 

950 PRINT "DIGITA 1 PER ANALISI DEI FLUSSI DI CASSA" 

960 PRINT " 2 PER FINE" 

970 INPUT ai 

930 IF 01=2 THEN 1253 

990 PRINT "QUESTA ANALISI PRESUME CHE I RIPARATORI SIANO PAGATI 'A' UNITA'” 
1000 PRINT “MONETARIE PER UNITA' DI TEMPO, CHE IL COSTO FISSO DEL POSSESSO DI" 
1O10 PRIHT "OGNI MACCHINA SIA 'B' UNITA' PER UNITA' DI TEMPO, E CHE" 

1020 PRINT "UNA MACCHINA, QUANDO E' IH FUNZIONE, E ' IN GRADO DI PRODURRE 'C'“ 

1030 PRINT "UNITA' DI RENDITA PER UNITA' DI TEMPO." 

1043 PRINT 

1O50 PRINT "INTRODUCI IL COSTO DEL RIPARATORE FER UNITA' DI TEMPO, 'A'"; 

1060 INPUT A 
1073 PRINT 

1030 PRINT "INTRODUCI IL COSTO FISSO PER UNITA' DI TEMPO, 'B', DEL POSSESSO" 
1090 PRINT "DI UNA MACCHINA" 

1100 INPUT 2 
ilio PRINT 

1120 PRINT "INTRODUCI LA RENDITA TOTALE FRODOTTA DA UNA MACCHINA OPERANTE," 
1130 PRINT "PER UNITA' DI TEMPO {OPERATIVO)"; 

I140 INPUT C 

^ * ejQ pp * 

1160 D=C*E3-A*M-B*H 

1170 PRINT "FLUSSO DI CASSA MEDIO GENERATO DALLA COMBINAZIONE DI";N 
USO PRIHT "MACCHINE MANTENUTE DA";M; "RIFARATOR"; 

1190 IF *!M THEN 1220 
1200 PRINT "E"; 

I210 GOTO 1220 
1220 PRINT "I"; 

1220 PRINT " E";D,"UNITA' MONETARIE" 

1240 PRINT "PER UNITA DI TEMPO. " 

1250 END 
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ANALISI DI MARKOV 


Questo programma calcola le variazioni che una data variabile subirà nel 
futuro, in base a quello che è il suo movimento corrente. Molti dirigenti adottano 
questo tipo di analisi, usandola come tecnica simultanea per analizzare i concor¬ 
renti presenti sul mercato. L’analisi di Markov ha, comunque, molte altre possibi¬ 
li applicazioni, ciò è anche dimostrato dagli esempi seguenti. 

Per usare il programma introducete per prima cosa quanti stati di natura 
sono considerati. La seconda entrata è opzionale. Se volete sapere il cambiamento 
che avverrà nel tempo da stadio a stadio, dovrete introdurre il vettore proporzio¬ 
nale alla popolazione corrente. Se, invece, siete interessati solo allo stato stabile di 
equilibrio su una lunga esecuzione, dovrete introdurre il vettore con uguale 
probabilità. Il numero degli elementi di questo vettore uguaglia gli stati di natura. 

Il programma, chiede, inoltre, ogni cella della matrice di trasposizione di 
probabilità (NN, dove N = stati di natura). Per ogni cella, introducete una 
transizione di probabilità, in un capo: 0<= p<= 1. La somma delle probabilità 
introdotte per ogni riga deve sempre dare 1. Quando avrete introdotto l’intera 
matrice, avrete la possibilità di scegliere, se guardare nel periodo futuro oppure, 
potrete utilizzare il programma per ottenere la matrice di transizione all’equili¬ 
brio. 

Il programma fornisce il vettore di equilibrio, il periodo in cui viene raggiun¬ 
to l’equilibrio ed il primo tempo di passaggio per ogni stato di natura. Questo 
tempo non viene stampato per stati ricorrenti e per stati non ricorrenti. 


Note al programma 

Questo programma permette un massimo di dodici stati di natura. Potete 
cambiare questo massimo modificando la linea 20: 

20 DIM VI (l).T(l,l),V2(l) 

Dovrete sostituire la I con il massimo da voi prescelto (es. 15, 20 o 25). 

Se dovete introdurre una grossa matrice, o se volete ripetere il programma 
con molti dati invariati, potete modificare il programma per far sì che esso accetti i 
dati dallo stato DATA, questa modifica è mostrata nel paragrafo Opzione. 
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Esemplo 

La Caffrey Hardware vuole analizzare i suoi profitti per stabilire il proprio 
flusso di cassa per crediti ai clienti. La compagnia ha 3 categorie di periodo: 
corrente, 45-89 giorni, 90 giorni o più. I profitti provenienti da quest’ultima 
categoria sono considerati come profitti non ricevuti. 

L’ultima analisi effettuata mostra che, per ogni dollaro di profitto: $ ,60 sono 
correnti, $ ,33 sono a 45-89 giorni e che le restanti $ ,07 sono a 90 giorni o più. Le 
analisi future mostrano che dei profitti correnti il 38% ritarderà il pagamento, il 
45% dei profitti correnti resta tale mentre il 17% passa nella categoria 45-89 
giorni. Nei profitti della categoria 45-89 giorni, il 65% ritarda il pagamento, il 25% 
varia solo i ritardi del pagamento mentre il 5% passa nella categoria 90 giorni o 
più. Dei profitti della categoria 90 o più giorni il 35% cambia il modo di 
pagamento, mentre il 75% diventa un debito insolvibile. 

Le categorie debiti pagati e debiti insolvibili sono “stati assorbenti”, cioè, se 
un debito fa parte della prima categoria, la probabilità che esso venga pagato è del 
100%. Lo stesso vale per i debiti non pagati o debiti insolvibili. Quindi, “stato 
assorbente” sta a significare che tutti i debiti di quello stato sono pagati, oppure 
che sono tutti persi. Quale profitto sarà riscosso? Quanto verrà perso? 

Nella seguente lista le categorie dei debiti pagati e non pagati assorbono tutti i 
debiti; La Caffrey può attendersi circa il 91 % dei profitti pagati ed il 9% di perdita. 


ANALISI SI MfiRKOV 
3UANTI 3TSTI DI NATURA? 5 


IL VETTORE POPOLAZIONE PROPORZIONALE E' CONOSCIUTO CO-IDCS 

INTRODUCI ELEMENTO 1 DEL VETTORE 
? 3 

INTRODUCI ELEMENTO 2 DEL VETTORE 
? . 5 

INTRODUCI ELEMENTO ? DEL ‘.-'ETTORE 
:• .33 

INTRODUCI ELEMENTO 4 DEL VETTORE 
INTRODUCI ELEMENTO 0 DEL VETTORE 
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_Lfl PROBABILITÀ' NON RAGGIUNGE 1.C-- 

PPOVR A RIINTRODURRE LA RIGA. 

INTRODUCI ELEMENTO DI RIGA 3 COLONNA : 
INTRODUCI ELEMENTO DI RIGA 3 COLONNA 2 
INTRODUCI elemento d: riga 0 COLONNA 3 
INTRODUCI ELEMENTO DI RIGA 3 COLONNA - 
INTRODUCI ELEMENTO DI RIGA 0 COLONNA 5 


INTRODUCI ELEMENTO DI 

introduci elemento di 
introduci elemento di 
INTRODUCI ELEMENTO DI 
INTRODUCI ELEMENTO DI 


RIGA 4 COLONNA 1 
RIGA 4 COLONNA 2 
RIGA 4 COLONNA 3 
RIGA 4 COLONNA 4 
RIGA 4 COLONNA 5 





NTRODUCT ELEMENTO DI 
NTRODUCI ELEMENTO DI 
INTRODUCI ELEMENTO DI 
INTRODUCI ELEMENTO DI 
INTRODUCI ELEMENTO DI 


RIGA 5 COLONNA 1 ? 0 
RIGA 3 COLONNA 2 ? .25 
RIGA 5 COLONNA 3 T .75 
RIGA 5 COLONNA 4 ? 0 
RIGA 5 COLONNA 5 ? 0 


.UOI OSSERVARE OGNI 
PERIODO SOTTO ANALISI <3/N> 
'■S 


IL VETTORE POPOLAZIONE 
PROPORZIONALE AL PERIODO 2 E' : 
. 46 



EQUILIBRIO VIENE RAGGIUNTO AL PERIODO 17 
VETTORE ALL' EQUILIBRIO 
.3058 
0 
0 
8 

. 3345 

VUOI RIUTILIZZARE QUESTO 
PROGRAMMA CON NUOVI DATI <S,'N>?N 


Problemi pratici 

1. Una indagine effettuata a Torino, città della regione Piemonte, mostra un 
cambiamento di orientamento. Agli abitanti è stato chiesto se essi si recano al 
lavoro guidando la macchina, in autobus oppure in auto di gruppo. Per ora: il 
43% va al lavoro con la propria auto, il 27% prende il bus ed il 30% usa auto di 
gruppo. La regione vuol sapere come cambierà questo modello nei prossimi mesi 
in seguito all’aumento o alla diminuzione del numero di bus. Il 65% di quelli che 
andavano in auto continua ad usare i propri mezzi, il 20% di questo gruppo 
passerà all’auto di gruppo, ed il 15% passerà al bus se il prezzo della benzina 
continua a salire. Il 25% di quelli che usavano l’auto di gruppo dice che userà la 
macchina propria, il 55% continuerà ad usare l’auto di gruppo ed il restante 20% 
passerà al bus. 
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Il 12% di quelli che usavano il bus vuole passare alla macchina, il 13% vuol 
passare all’auto di gruppo ed il 75% continuerà ad usare l’autobus. Quali saranno 
i cambiamenti tra sei mesi? Quale sarà la posizione d’equilibrio? 

Risposta: Tra sei mesi: il 35,5% userà la propria macchina, il 26,66% userà 
l’auto di gruppo ed il 39,86% userà il bus. All’equilibrio il 32,86% userà la propria 
automobile, il 26,4% userà l’auto di gruppo ed il 40,83% userà il bus. 

2. Rita affitta macchine all’aereoporto di Milano ed ha due concorrenti. Lo 
scorso mese Rita ha avuto l’85% dei clienti del mese precedente, il 5% dei suoi 
affari è passato al concorrente A ed il 10% al concorrente B. Il concorrente A ha 
avuto ancora il 90% dei suoi clienti mentre il 10% è passato a B. Il concorrente B 
ha mantenuto il 75% dei suoi clienti, il 5% è passato ad A e il 10% è passato a Rita. 
Quale sarà la situazione di equilibrio, se si assume di non conoscere il vettore 
proporzione? Quanti mesi dovranno passare prima che un cliente che è passato 
altrove ritorni ad affittare una macchina da Rita? 

Risposta: Posizione all’equilibrio: Rita 19,1%, concorrente A 52,4%, concor¬ 
rente B 28,63%. In media passano 5,24 mesi. 


Listlng del programma 


10 REM BURLISI HI MftRKOV 

20 BIM VI a20,7(12'.- 12),V£<:2> 

30 REM MATRICE VIO—VETTORE POPOLAZIONE PROPORZIONALE 
40 REM MATRICE TO— MATRICE TRANSIZIONE PROBABILITÀ' 

50 REM MATRICE V20—MATRICE VETTORE AZZERAMENTO 
60 DEF FNR<2>=INT< <Z* 10000+ .5) VIOOOO 
70 PRINT "ANALISI DI MARKOV" 

30 PRIHT 
90 N=1 

100 FRINT “QUANTI STATI DI NATURA"; 

110 INPUT S 
120 PRIN7 

130 PRIHT "IL VETTORE POPOLAZIONE PROPORZIONALE E' CONOSCIUTO ;S.'N>" 

140 INPUT A t 

ISO IF A*="S" THEN 220 

160 IF A»0"N" THEN 130 

170 REM SE IL VETTORE NON E' CONOSCIUTO ASSEGNA UGUALE PR0BALI7A' AD OGNI 
175 REM STATO 
130 FOR 1=1 T0 S 
190 VI<I)=FNR<1/S) 

200 NEXT I 
210 GOTO 280 

220 REM CICLO PER INTRODURRE LA POPOLAZIONE PROPORZIONALE 

238 PRINT 

240 FOR 1=1 TO S 

250 PRIHT "INTRODUCI ELEMENTO"; I;"DEL VETTORE" 

260 INPUT VK1> 

270 NEXT I 

230 REM INTRODUCI LA MATRICE DI TRANSIZIONE (MATRICECI,J>> 

290 PRIHT 
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130 FOR 1=1 TO S 
310 K=0 

120 FOR J=1 TO 3 

iso PRIMI "INTRODUCI ELEMENTO DI RIGA";I;“COLONNA";J; 

140 INPUT T<I,J> 

150 K=K+T(I.>J> 

360 next j 

i-0 IF K=1 THEN 410 

ÌS0 FRI NT *-LA PROBABILITÀ-' NON RAGGIUNGE 1,0-* 

330 PRINT "PROVA A RIINTRODURRE LA RIGA." 

400 GOTO 310 
410 PRINT 
420 HEXT I 

430 PRINT “VUOI OSSERVARE OGNI " 

440 PRINT "PERIODO SOTTO ANALISI <S/N>" 

450 INPUT A* 

460. IF A*="S" THEN 4S0 
470 IF AtO"H" THEN 430 

430 REM CICLO PER MOLTIPLICARE IL VETTORE <V1> PER LA MATRICE 
435 REM DI TRANSIZIONE <T> 

430 N=N+1 
500 FOR 1=1 TO S 
510 V2<I>=0 
520 FOR J=1 TO S 

530 REM SOMMA LE COLONNE MOLTIPLICATE CON IL VETTORE V2 
540 V2(I)=V2(I>+FNR(Vl<J>#T<J, I)) 

550 HEXT J 
560 HEXT I 

570 REM SALTA LA STAMPA DEL VETTORE SE NON RICHIESTO 
530 IF A*0"S" THEN 620 
590 PRINT 

600 PRINT "IL VETTORE POPOLAZIONE" 

610 PRINT "PROPORZIONALE AL PERIODO";N;"E' " 

620 N1=0 

630 FOR 1=1 TO S 

640 IF A*0"S" THEN 660 

650 PRINT V2<I> 

660 IF V2<I>OVl<I> THEN 630 
670 N1=N1+1 
680 V1<I>=V2<I> 

690 HEXT I 

700 IF NIO S THEN 480 

710 REM STAMPA I VALORI DEL VETTORE EQUILIBRIO 
720 PRINT 

730 PRINT "L / EQUILIBRIO VIENE RAGGIUNTO AL PERIODO";M 
740 PRINT "VETTORE ALL' EQUILIBRIO:" 

750 FOR 1=1 TO S 
760 PRINT FMR<VI\ I > > 

770 HEXT I 
780 PRIHT 

300 REM STAMPA LA TRANSIZIONE NECESSARIA PER LA RIOCCUPAZIONE DI OGNI STATO 

810 .FOR 1 = 1 TO S 

820 IF T<I,I)=1 THEN 860 

830 IF VI(I)<=0 THEN 360 

840 PRIHT "1* PASSAGGIO—STATO ";IJ*:“; 

850 PRINT FNRa/VKI)) 

860 HEXT I 

870 PRINT "VUOI RIUTILIZZARE QUESTO" 

888 PRINT "PROGRAMMA CON NUOVI DATI <S/N)".: 

890 INPUT At 

900 IF A*="S" THEN 80 

318 IF A*C"N" THEN 878 
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Opzione 

Se il vostro programma prevede una grossa matrice, o se volete riutilizzare il 
programma mantenendo molti dati invariati, potete usare questa opzione. Il 
programma in tal modo leggerà gli ingressi dallo stato DATA, invece di chiedervi 
di introdurre il vettore popolazione proporzionale e la matrice transizione di 
probabilità. Sostituite le linee da 170 a 350 con le seguenti linee. Togliete inoltre le 
linee da 870 a 910 e lasciate la linea 920 dove di trova. Se volete rifare il 
programma senza riinserire i dati relativi al vettore popolazione proporzionale, 
dovete eliminare le linee da 242 a 249 se esse contengono DATI di un vettore già 
usato nell’esecuzione precedente. 


OPZIOHE 


ITO REMSE IL VETTORE E SCONOSCIUTO ASSEGNA UGUALE PROSALITft' AD 
172 REM OGNI STATO 

175 REM SE IL VETTORE E' CONOSCIUTO, DEVI SALTARE LE LINEE 242-24? 
175 REMO I DATI DEVONO ESSERE LETTI FUORI DALLA SEQUENZA 
ISO FOR I-i T0 S 
190 vl<I>=FHR<l/'S) 

200 me:;t i 

210 GOTO 2S0 

220 REM CICLO PER LEGGERE LA POPOLAZIONE PROPORZIONALE 
230 PRIHT 

240 FOR 1=1 T0 S 

241 REM PONI OLII GLI ELEMENTI DEL VETTORE PROPORZIONALE 

242 DATA 0, .5, . SS.-. 07,0 

250 PRINT "VETTORE ELEMENTO”;I;* 

260 READ Vl<I> 

255 PRIHT Via) 

270 MENT I 

2S0 REM LEGGI LA MATRICE DI TRANSIZICHE<ORDINE I DI J> 

290 PRINT 

300 FOR 1=1 TO S 

310 K=0 

320 FOR J=1 TO S 

321 REM PONI QUI LA MATRICE TRANSIZIONE DI PROBALI r A 

322 DATA 1,0,0,0,0,.3S,.45,.17,0,0 .55,.25.0 .1,0 

323 DATA .25,0,0,0,.75,0,0,0,O,1 

330 PRIHT "ELEMENTO IN RIGA" I,"COLONNA"; 

340 READ T<I,J > 

345 print t;i,j; 

350 K=K+T<I,J) 
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ANALISI DEL PUNTO DI PAREGGIO 


Questo programma calcola il punto di breakven (punto di pareggio) per un 
determinato prodotto, utilizzando un metodo non lineare che si avvicina di più 
alla situazione di produzione reale di quanto non faccia un metodo lineare. Esso 
considera una curva di “conoscenza” sia per i costi che per i prezzi. Questa curva 
indica che in ogni periodo di produzione o di vendita doppia, i costi medi 
cumulativi o i redditi per unità devono aumentare o diminuire deH’ammontare 
della curva. Il valore zero della curva, indica che non è avvenuto nessun cambia¬ 
mento. Introducendo i diversi valori della curva per costi e prezzi, il programma 
potrà indicare il punto di massimo profitto. 

Per usare il programma dovrete introdurre il prezzo unitario di vendita, la 
“curva di conoscenza” per il prezzo di vendita, i costi variabili, la “curva di 
conoscenza” dei costi variabili ed i costi fissi. I costi variabili sono quelli che 
possono essere direttamente ascrivibili alla produzione di ogni unità, ad esempio 
il costo dei materiali grezzi. I costi fissi, come affitto e salari, generalmente non 
variano per ogni unità prodotta. 


Esemplo 

La società SELTA produce e commercia in pompe. Le macchine impegnate 
per la produzione di queste pompe e tutti gli altri costi superiori associati alla 
produzione danno un costo totale di $ 10.000. Ogni unità di prodotto richiede $ 
5,00 di materiale grezzo, lavoro, deprezzamento macchina ecc., la società abbiso¬ 
gna di un maggior numero di macchine e di personale al fine di produrre più 
pompe, per tale motivo essa fa uso di una curva di conoscenza in aumento del 5%. 
Il dipartimento vendite si attende un prezzo di vendita di $ 25,00 a pompa con una 
curva di conoscenza in diminuzione del 5%. Quale è il punto di breakeven per le 
pompe? Quale è il margine di massimo profitto che la società può realizzare? 
Quale è il totale dei costi e quale il totale dei redditi al massimo profitto? 

Risposta: Il breakeven avviene a 1663 unità. Il margine di massimo profitto è 
il 17,182%. I costi totali al massimo profitto sono $ 74.134,00, mentre i redditi al 
massimo profitto sono di $ 89.514,00. 

ZIRLISI BEL PUNTC BI PAREGGIO 

INTRODUCI IL .-REZZO UNITARIO? 25 

INTRODUCI IL T3SS0 21 EROSIONE BEL PREZZO UNITARIO 
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.valori negativi indicano un decremento nella rendita ih 

CORRISPCNDENZfi "B UH INCREMENTO DELLE VENDITE) 


INTRODUCI IL TOTALE COSTI VARIASILI PER UNITA"? 5 

INTRODUCI IL TASSO DI AFFRENDIMENTO DEI COSTI '-.'ARIABILI!VALORI NEGATIVI INDICANO 
JM DECREMENTO DEI COSTI IN 

CORRISPONDENZA AD UN RADDOPPIAMENTO DELLA PRODUZIONE) 


INTRODUCI IL VALORE TOTALE DEI COSTI FISSI? 10OOO 

PUNTO DI PAREGGIO * 1563 UNITA"' 

RENDITA TOTALE AL PUNTO DI PAREGGIO = T. 24015 

MARGINE MASSIMO DI PROFITTO TOTALE A 6386 UNITA" = 17.182 11 

RENDITA TOTALE = T. 35514 
COSTI TOTALI = t. 74104 

PROFITTO TOTALE = t. 15380 

VUOI RIUTILIZZARE QUESTO PROGRAMMA CON NUOVI DATI <S/N>? N 
READY. 

Problemi pratici 

1. Il prezzo di vendita di un prodotto è $ 30,00 ed il reddito decresce del 2,5% 
ogni volta che la produzione raddoppia. I costi variabili sono di $ 1,20 per unità, 
ma il costo medio cumulativo aumenta dell’8% quando la produzione raddoppia. 
I costi fissi sono di $ 180.000,00. Quale è il punto di breakeven? Quale è il massimo 
profitto? 

Risposta: Il breakeven avviene a 9945 unità, il massimo profitto è del 
71,185% e avviene a 246752 unità. 

2. Con un prezzo unitario di $ 19,95, costi variabili di $ 4,75 e costi fissi di $ 
6800, quante unità dovranno essere vendute per il breakeven? (Non avviene 
nessun cambiamento di costi o di prezzi. Si deve usare il valore zero della curva di 
conoscenza sia per i redditi che per i costi). 

Risposta: Il breakeven avviene a 447 unità. 


Llsting del programma 


Ì3 PRINT “ANALISI DEL PUNTO DI PAREGGIO" 

20 REM — QUESTE FUNZIONI CALCOLANO LA CURVATURA 
30 DEF FMAOC*-LCG<!♦<'».’I09>>/LCGv2> 

40 DEF FNB<:<)=L0G< l + CX/100) VLC0<2)+1 
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rC 3EF FNCIH)=INT< ' ITl-TSD.Tl >*1E5+. 5V1000 
se "RIUT 

FRINT "INTRODUCI IL PREZZO UNITARIO"; 

*0 INPUT U 

'■e RRIUT "INTRODUCI IL TASSO DI EROSIONE BEL PREZZO UNITARIO" 

'■se FRI NT ••'VALORI NEGATIVI INDICANO UN DECREMENTO NELLA RENDITA IN " 

frint "corrispondenza ad un incremento belle vendite)" 
input li 

;20 A1=FH8<L1> 

::s sì- pne<li) 

■ 40 FRINT 

ISO FRINT "INTRODUCI IL TOTALE COSTI VARIABILI PER UNITA'“J 
150 INPUT 'V 

173 FRINT "INTRODUCI IL TASSO DI APPRENDIMENTO DEI COSTI VARIABILI"; 

ISO FRINT "IVALORI NEGATIVI INDICANO UN DECREMENTO DEI COSTI IN" 

ICC FRINT "CORRISPONDENZA AD UN RADDOPPIAMENTO DELLA PRODUZIONE)" 

120 INPUT L2 
ZOO A2=FNR<L2) 

ZIO 32=FMB<L2) 

ZZO FRINT 

ZOO FRINT "INTRODUCI IL VALORE TOTALE DEI COSTI FISSI"; 

Z43 INPUT F 
258 FRINT 

260 REM INIZISLIZZA L'IPOTESI PIU' RECENTI, LA PIU' BASSA, LA PIU' ALTA 
zzo s-e 
zso l=: 
z?o h=ie4 

000 REM CALCOLATE IL PUNTO USANDO LA RICERCA BINARIA 

■;« “• 2=*}j7\(J_f}.!) "T 1 ) 

320 REM SE IL NUOVO PUNTO = IPOTESI PIU' RECENTE, ESCE 
ZOO IR S=C THEN 430 

040 REM ASSEGNA L'ULTIMA IPOTESI AL NUOVO PUNTO 
SCO S=B 

OSO REM CALCOLA LA RENDITA TOTALE E I COSTI TOTALI ALLA QUANTITÀ' B 
SCO T1=INT';U*BiBl)f.5) 

SC3 TZ=IHT''V*BIBZ+F)+.5) 

320 REM IL PUNTO DI PAREGGIO VIENE TROVATO SE RENDITA TOTALE = COSTI TOT. 
400 IF Tl-Tz THEN 4S0 

418 REM AGGIUSTA I LIMITI SUPERIORE 0 INFERIORE, RIPROVA 

428 IR 71072 THEN 450 

4S0 L-B 

440 SCTO 310 

450 H—B 

4G0 GOTO 310 

470 REM TROVATO IL PUNTO DI PAREGGIO, EMETTE I RISULTATI 
480 FRINT "PUNTO DI PAREGGIO =";S;“UNITA'" 

430 FRINT "RENDITA TOTALE AL PUNTO DI PARECGI0 = I.";T1 
500 REM UTILIZZA QUESTA SEZIONE SE LE FIGURE SONO LINEARI 
510 IF LI 13LZ THEN 578 
520 FRINT "COSTI E RENDITA SONO LINEARI." 

530 FRINT "NON E' POSSIBILE ALCUN MARGINE MASSIMO DI PROFITTO TOTALE." 

540 GOTO 530 

550 REM STAMPA I DATI RIGUARDANTI IL MARGINE MASSIMO DI PROFITTO TOTALE PER 
555 REM VALORI NON LINEARI 

550 REM 1SALTA QUESTA SEZIONE SE I VALORI SONO LINEARI) 

570 B=INT'ENP<LOO< 1 F#( Al -1 ) ).’< V# AZ -A 1))>. ' 11-A2 >) +.5 > 

530 T1=I,NT'U*BTB1) 

500 T2=INT'V*BÌB2+F) 

500 FRINT 

510 FRINT “MARGINE MASSIMO DI PROFITTO TOTALE A"; 

520 FRINT D; "UNITA ■ " ; PNC M71-T2VT1 >;"?!' 

5S0 FRINT 

540 FRINT " RENDITA TOTALE = f.";T1 

550 RRINT * SOSTI TOTALI = t.";TZ 

5CD FRINT 

570 FRINT " PROFITTO TOTALE = I. ", TI-TO¬ 

SSO RRINT 

S30 RRINT "VUOI RIUTILIZZARE QUESTO PROGRAMMA CON NUOVI DATI <S.’N>"; 

ZOO INPUT ZI 
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713 IF Ct=''S" THEH SS 
'CO IF 7*0"H" THEìJ £30 
730 EHI! 


Bibliografia 

Solomon e Pringle. An lntroduclion to Financial Management. Santa Monica, 
Calif.: Goodyear Publishing Company, 1977. 

Texas Instruments. Programable 58/59 Calculator Business Decisions Library 
(manuale), Parte numero 1014984-9. 
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ANALISI CON MATRICE DEI VANTAGGI 


Questo programma valuta un gruppo di possibili alternative, ognuna delle 
quali presenta dei benefici quantizzabili, o “vantaggi”, dipendenti da vari stati di 
natura. Sotto diverse condizioni, l’ammontare dei vantaggi può essere grande, 
oppure diventare minimo. Per l’analisi dei vantaggi in condizione di incertezza, il 
programma utilizza tre criteri: “Di maxi-mini” (trova l’alternativa che offre i più 
alti vantaggi), “di maxi-maxi” (l’alternativa migliore nel caso peggiore), e di 
“mini-maxi relativo” (alternativa che minimizza opportunamente i costi). 

Per usare il programma dovete considerare tutte le vostre alternative. Esse 
devono essere considerate l’una relativa alle altre (Esempio: Voi disponete di $ 
20.000 e volete sapere quale fra quattro diversi investimenti è quello ottimale 
rispetto allo stato variabile dell’economia). Dovrete saper stimare quale vantag¬ 
gio si avrà (positivo, negativo o nullo) per ogni alternativa in relazione ad ogni 
stato. Così come dovrete saper stimare la probabilità che si abbia un certo stato. 

Il computer vi chiederà quanti stati vanno considerati, e quante alternative 
esistono. Quando introducete la matrice dei “vantaggi” riga per riga, partite con 
l’azione 1 sotto lo stato 1, l’azione 2 sotto lo stato 2 ecc. Dopo aver introdotto la 
matrice, introducete la probabilità di ogni stato, tali probabilità sono esclusive e la 
loro somma deve dare 1. 

Il programma mostra quale è l’alternativa migliore con le regole maxi-maxi o 
maxi-mini. Il computer potrà opzionalmente mostrare la matrice relativa. In tal 
caso, esso vi fornirà il massimo relativo ottimale, seguito dai vantaggi attesi per 
ogni alternativa. 

Note al programma 

Il programma permette un massimo di 10 stati e 10 alternative. Potete 
cambiare tali valori, cambiando la linea 20 nel modo seguente: 

20 DIM S(N,A),M(A),R(N),X(A) 

Sostituite l’espressione N con il numero massimo di stati da voi desiderato, e 
A con il massimo numero di alternative desiderate. 

Esemplo 

Fred vuole investire un capitale sul mercato. Ha queste tre alternative: titoli, 


123 



obbligazioni o opzioni. I vantaggi sono i seguenti: 


Investimento Stato dell'economia 

Recessione Stabile Inflazione 


Titoli 

-20 

65 

200 

Obbligazioni 

0 

80 

80 

Opzioni 

-300 

0 

300 

Probabilità 

0,3 

0,2 

0,5 


Quale sarà il risultato se Fred esegue il programma? 
Risposta: 


ANALISI CON MATRICE DEI 

VANTAGGI 




QUANTI STATI DI 

NAT! IRA' 





QUANTE ALTERNST 

IVE PCS: 

lÉlLI? 3 




VANTAGGIO DELL' 

AZIONE 

1 NELLO STATO 

« 


.23 

VANTAGGIO DELL" 

AZIÓNE 

I NELLO STATO 

2 

7 


VANTAGGIO DELL 

AZIONE 

1 NELLO STATO 

- 

7 

_.V 

VANTAGGIO DELL ' 

AZIONE 

Z NELLO STATO 


? 

d 

VANTAGGIO DELL' 

AZIONE 

2 NELLO STATO 

2 


?0 

VBN7RGGI 0 DELL' 

AZIONE 

Z NELLO STATO 

2 

* 

37 

VRNTROGIO DELL' 

AZIONE 

S NELLO STATO 

j 


■790 

v'RNTfìOGJO DELL" 

AZIONE 

3 NELLO STATO 

2 

7 

3 

7RN7RGGI0 DELL' 

AZIONE 

0 NELLO STATO 


7 

:09 


INTRODUCI LE PROBABILITÀ' PER LC STATO I ? .0 
INTRODUCI LE PROBABILITÀ" PER LC STATO 2 C .2 
INTRODUCI LE PROBABILITÀ' PER LC STATE CO .T 


VANTAGGIO MASSIMO DI 330 DALLA AZIONE S 
VANTAGGIO MAMMIN DI ? DALL'AZIONE Z 
VUOI VEDERE LA TABELLA RELATIVA OS.TP? S 
STATO ICC 

AZIONE 1 CO 1C ICC TACCINO RELATIVO =100 

AZIONE 2 ? ? 22C TASSINO RELATIVO = ZZO 

AZIONE 0 ZOO §0 5 MASSIMO RELATIVO - COC 

VANTAGGIO. MIN IMAN DI 130 DALL'AZIONE I 

I VALORI ATTESI SONO' 

PER L'AZIONE I 107 

PER L'AZIONE Z SS 

PER L'AZIONE 3 SO 

VUOI RIUTILIZZARE QUESTO PROGRAMMA 
CON NUOVI DATI SS. ’N>? N 
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Problemi pratici 

1. Un affarista considera un contratto di assistenza per il suo calcolatore II 
contratto costa $ 100 al mese, e copre tutte le riparazioni. Poiché, il calcolatore ha 
cinque anni sono necessarie più riparazioni che in passato. Il tempo di decadimen¬ 
to del sistema è legato al tipo di riparazioni, cioè al fatto di aver subito grosse o 
piccole riparazioni; il valore medio di una piccola riparazione è di $ 140, quello di 
una grossa riparazione è di $ 900. La probabilità che occorrano piccole riparazio¬ 
ni è dello 0,07, quella che occorrano grosse riparazioni è dello 0,08. Quali sono i 
vantaggi? 

Risposta: Vantaggio maxi-maxi (il costo in questo tipo di problema): $ 0. 
Vantaggio maxi-mini: - $ 100. Vantaggio mini-maxi relativo: $ 100. Valori attesi 
(costi) del contratto di servizio: $ 100. Costi attesi senza contratto di servizio: $ 
81,80. 

2. Un ricercatore di mercato è interessato alla raccolta dei responsi di un 
gruppo d’opinione. Il ricercatore è pagato per ogni servizio completo. Il numero 
di responsi raccolti è dipendente dalle condizioni del tempo, questa dipendenza è 
mostrata in seguito: 


Località Condizioni atmosferiche 


Spiaggia 

Sole 

Freddo 

Pioggia 

150 

30 

0 

Porta a Porta 

40 

70 

90 

Mercato delle Pulci 

80 

50 

5 

Probabilità atmosferiche: 

0.5 

0,3 

0,2 


Quale è l’alternativa ottimale rispetto ad ognuno dei tre criteri? 

Risposta: Col criterio maxi-maxi è l’alternativa 1 con un vantaggio di 150, 
con criterio maxi-mini la 2 con vantaggio 40, col criterio mini-maxi relativo la 3 
con un vantaggio ottimale di 85. Valori attesi: alternativa 1: 81 ; alternativa 2:61; 
alternativa 3 : 43,5. 


Llstlng del programma 
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73 FRINÌ "QUANTE ALTERNATIVE POSSIBILI"; 

SS INPUT fi 
SO FRINÌ 

I30 FCR 3=1 IO fi 
::0 M:0>=-SES 
ICO FRINÌ 
130 FCR F=1 IO N 

143 PRINT "VANTAGGIO BELL' .‘ZIONE". I; "NELLO STATO".:?; 

103 IMFUT SISIFI 

oso ne:;t f 

173 MENI Q 

ISO .REM INTRODUCI LE FRODABILI!?! PER SONI STRIO DI NATURA 

ISO fi1=0 

200 FRINÌ 

210 POR 3=1 IO M 

220 FRINÌ "INTRODUCI LE PROBABILI Tri ' TER LO 3TATC";QJ 
200 INPUT fiiq; 

240 fil=fil+PlICO 
253 R<Q>=0 
2S0 MENI 3 

270 IP fil=l THEN 330 
-Q0 FRINÌ 

OSO FRINÌ ".LE PROBABILI IR ' NCU fiRRIVfi.NO fi 1.0- 

3S0 PRINT " CONTROLLA LE ENTRATE E RIPROVA." 

210 FRINÌ 
223 3010 1S0 

020 REM CALCOLA I VALORI MA: Il MAN & MfiNMIN 

340 fil=-SES 

250 POR 3=1 IO A 

263 33=3 

373 REM RIMPIAZZA A3 CON IL PIU' ALIO VANTAGGIO 

3S3 FCR F=1 IO N 

OSO IP fil=-SES THEN 413 

433 IP 3s'Q,?>.:=fii THEN 430 

410 fii=S<Q.P> 

4^3 fi^*—Q 

433 REM PONI IL MINIMO VANTAGGIO PER CONI AZIONE 
440 IF M<Q)=-SES THEN 463 
423 IF 3<Q.F)2=M<Q> THEN 470 
460 M'Q'=3<Q.P> 

470 REM SALVA IL VANTAGGIO PIU' ALTO PEF: LA TABELLA PELAI:'.'.' 
4S3 IF 3<3.- p>C=R<P> THEN 530 
4S0 R<P>=S<S.P) 

530 NEXT P 
513 NEXT a 
523 PRINT 

538 PRINT "VANTAGGIO MASSIMO DI”:SU"DALLA AZIONE ":A2 

543 FRINÌ 

550 A1=-SES 

563 FOR 0=1 IO fi 

573 IF M<Q>CA1 THEN 533 

5S0 fìl=M<Q> 

5S0 A2=Q 
633 NEXT Q 

613 PRINT "VANTAGGIO MAXMIN DI";Al;"DALL'AZIONE ";A2 
629 PRINT 

638 PRINT "VUOI VEDERE LA TABELLA RELATIVA <3.W\ 

648 INPUT fi* 

653 IF A*="N" THEN S73 
663 IF fitO "S" THEN 630 
573 PRINT 

SSO PRINT "STATO";TAB<18>; 

6S0 Al=3 

730 REM STAMPA L'INTESTAZIONE BELLA TABELLA 
713 FOR P=1 IO N 
720 PRINT P, 

730 NEXT P 
743 PRINT 
753 PRINT 
760 FOR Q=1 IO fi 
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770 

FRINT "AZIONE";8;T 

ab;: 

ISO 


730 

REM STAMPA LA TABELLA 

relat: 

730 

A 1=0 




S00 

FOR P=1 TO H 




310 

PRIMT R<P>-S<G,P>, 




320 

IF R<P>-S(8,P>C=A1 

THEM 

S40 

-30 

A1=R(P)-S<Q,P) 




340 

me:;t p 




350 

PRIMT "MASSIMO PEL 

ATI' 

,'C 

= " ; j 

360 

NEXT 3 




370 

FOR 8=1 TO A 




330 

A 1=0 




330 

FOR P=1 TO N 




300 

IF R<P>-3<8; f:> C=R1 

THEM 

330 

310 

A1=R<P>-S<G,P> 




320 

X<8>=R<P>-S<8,P> 




330 

MEXT P 




340 

MEXT 8 




350 

A1=0 




•56.0 

FOR P=1 TO A 




370 

IF P=i THEN 330 




930 

if x<p>: ai THEM IO 

110 



330 

A1=X<P> 




1000 A2=P 





1010 MEXT P 
1020 PRIMI 

1030 PRIMT "VANTAGGIO MINIMAX 3I";Al; "BALL 'AZIONE". .32 
1040 PRIMT 

105O PRIMT "I VALORI ATTESI SONO " 

1060 POR F=1 Tu A 

1070 Al=e 

10S0 F0R 8=1 TO M 

1050 Al=fllKS<P,QI'#Pl<G>> 

1100 NEXT 8 

1110 PRIMT "PER L'AZIONE";P;" ";Al 
1120 NEXT P 
1130 PRIMT 

1140 PRIMT "VUOI RIUTILIZZARE QUESTO PROGRAMMA" 

1150 PRIMT "COI MUOVI DATI <3.W"; 

1160 INPUT A* 

1170 IF A*="S" THEN 40 
USO IF A*0“N" THEN 1130 
1130 END 


Bibliografia 
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ANALISI DI DECISIONE BAYESIANA 


Questo programma corregge le probabilità (date come multipli di stati di 
natura) in accordo con il teorema di Bayes per eventi condizionati, e fornisce le 
valutazioni future di azioni possibili utilizzando una matrice di vantaggi. Questa 
tecnica applica una scelta di campioni per quantità basandosi su sucessive proba¬ 
bilità da voi introdotte. 

Per prima cosa dovete introdurre il numero di stati presenti; per esempio: un 
lotto di prodotti può avere tre possibili uscite: 1199% buono, il 90% buono oppure 
l’85% buono. In seguito introducete il numero di azioni condizionate possibili: 
cioè, inviare fuori il lotto, inviare fuori il lotto e rivedere la macchina per 
correggere il difetto oppure rilavorare il lotto e rivedere la macchina. La successi¬ 
va serie di entrate è la matrice dei vantaggi. Introducete i vantaggi (o i costi come 
numeri negativi) per ogni azione, all’interno di ogni stato. Successivamente 
introducete due probabilità per ogni stato, per prima la probabilità prioritaria che 
avvenga quel particolare stato ed in seguito la probabilità condizionata basata 
suH’awenimento dello stato. 

Per illustrare quanto detto, consideriamo i tre casi precedenti: 99%, 90% e 
85% buoni. Queste sono probabilità condizionate, in altre parole, è possibile 
ottenere il 99% di buoni eseguendo una certa produzione. Quindi, se lo stato 
presente è il 99%, la probabilità del 99% è condizionata in base al fatto che siamo 
in quello stato. La probabilità prioritaria è la probabilità che quello stato avvenga 
per primo. La probabilità prioritaria è la “stima congetturale” fatta dal personale 
di produzione e basata sulla esperienza. 

Le ultime due entrate sono: la dimensione del campione ed il numero attuale 
di “successi” nel campione usato. Nell’esempio precedente se si esegue un control¬ 
lo su 50 pezzi di un lotto di 1000 e si trovano 5 pezzi difettosi, dovrete introdurre 50 
come dimensione del campione e 5 come numero attuale di successi. Il program¬ 
ma fornisce il valore atteso per ogni azione basandosi sulla correzione della 
probabilità. Voi dovrete scegliere l’azione ottimale fra questi valori, essa è quella 
che usualmente minimizza i costi o massimizza i vantaggi. 

Dopo i valori attesi per ogni azione il programma fornisce le probabilità 
prioritarie, quelle più verosimili e le probabilità congiunte e posteriori. Come 
figura finale viene fornita la probabilità marginale. Questa è la quota “non 
condizionata” o quota attesa di successo. Volendo potrete continuare, per far 
questo dovrete introdurre una nuova dimensione del campione (altrimenti intro¬ 
ducete zero ed il programma finirà). 
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Esemplo 

Il dipartimento di controllo della FIB, stima che i bulloni da essi prodotti 
rientrino in tre categorie: il 99% accettabile il 90% accettabile e l’80% accettabile. 
Questi tre livelli di qualità avvengono rispettivamente il 70, il 20 ed il 30% delle 
volte. Il padrone della FIB stabilisce che venga fatto uno studio, che documenti 
quanto la ditta perderà nel caso venga effettuata una cattiva scelta in relazione al 
controllo qualità. Egli fornisce questa matrice di vantaggi: 


Vantaggi 

Azioni 

se il 99% 

buono 

se il 90% 

buono 

se l'80% 

buono 

Vendita del lotto 

- 1200 

- 1800 

-2400 

Revisione macchine 
senza rilavorazione 

- 1400 

- 1600 

- 2200 

Revisione macchine 
e rilavorazione 

- 2000 

- 2000 

- 2000 


Il costo di produzione del lotto è di $ 1200. Se il lotto è venduto e la qualità è 
minore del 99% la FIB deve incorrere nei costi di merce ritornata. Se la decisione è 
quella di rivedere le macchine, essa incorre in tempi morti, ma la quota di merce 
ritornata sarà minore nei futuri lotti. Se le macchine sono rivedute ed i bulloni 
lavorati nuovamente, il lotto sarà al 99% ed il costo resterà costante. Se il padrone 
della FIB esegue il programma che risultati avrà? Quale sarà la strategia migliore 
sulla base dei vantaggi se vengono considerati accettabili 46 bulloni su 50? 

Risposta: La strategia migliore è la revisione delle macchine ad un costo 
valutato di $ 1.616,75. Questo campione ha il 94,8% di probabilità di fornire il 
90% di bulloni senza difetti. 


infilisi hi decisione bavesiana 

QUANTI STATI DI NATURA? 3 
QUANTE AZIONI CONDIZIONALI? 3 


INTRODUCI I DIVIDENDI PER' 


AZIONE 

1 

SOTTO 

LO 

STATO 

1 

0-1100 

AZIONE 

J 

SOTTO 

LO 

STATO 

2 

?-ISOO 

AZIONE 

1 

SOTTO 

LO 

STATO 

2 

3-2400 

AZIONE 


SOTTO 

LO 

STATO 

i 

3-1480 

AZIONE 

2 

SOTTO 

LO 

STATO 

2 

3-1388 

AZIONE 


SOTTO 

LO 

STATO 

3 

3-2288 

AZIONE 

3 

SOTTO 

LO 

STATO 

i 

3-2000 

AZIONE 

3 

SOTTO 

LO 

STATO 

2 

3-2088 

AZIONE 

3 

SOTTO 

LO 

STATO 

3 

3-2000 


INTRODUCI LE PROBABILITÀ' ANTERIORI E CONDIZIONALI' 
PER LO STATO 1 ? .7 . .?9 

PER LO STATO 2 ? .2 , ,3 

PER LO STATO 3 ? .1 , .3 

INTRODUCI IL FORMATO DEL CAMPIONE IO PER FINE)? 00 
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INTRODUCI IL NUMERO PERLE DI SUCCESSI? 4£ 

DATI 46 SUCCESSI IN UH FORMATO DI SO 
I VALORI ATTESI SONO' 

AZIONE 1 '-1300 
AZIONE 2 '-ISOO 
AZIONE 3 -2090 

REVISIONI DELLE PROBABILITÀ' 

STATO ANTECEDENTE VEROSIMIGLIANZA CONGIUNTA POSTERIORE 
* ■> -, 

2 .2 5E-03 ÌE-C3 I 

3 - ! 5 Z ~ “• 

INTRODUCI IL FORMATO DEL CAMPIONE <? PER FIME>? 0 


Problemi pratici 

1. Nell’esempio precedente, quale è il numero minimo di bulloni accettabili 
che permette di vendere il lotto senza revisionare la macchina? A questo punto, 
quale è la probabilità che il lotto fornisca il 99% di bulloni senza difetti? (Trovate 
la risposta di prova-errore. Introducete un numero di poco superiore ai successi 
dopo aver trovato la risposta). 

Risposta: Il numero minimo è 48 su 50, con un costo atteso di $ 1.357,59. A 
questa quota la probabilità che i bulloni siano al 99% senza difetti è di circa il 
77,2%. 

2. Nell’esempio precedente quando diventa ottimale l’azione 3 - revisione 
macchine e rilavorazione del blocco? 

Risposta: Se sono accettabili 41 bulloni su 50, il costo di $ 2.000 è minore di 
quello delle altre due alternative (vendita del lotto $ 2.203,96, vendita e revisione $ 
2.003,96). In questo caso si ha una probabilità del 67,03% che l’80% dei bulloni sia 
buono. 


Listing del programma 


PRINT "ANALISI DI DECISIONE BAVESIANA“ 
RRINT 

0 DIM P1<4>,F2<4),P3<4>,F5<4>,A<4,4>,M<3> 
5 DEP FNR<Zn=INT<Zl*1000+.5V1000 
0 PRINT "QUANTI STATI DI NATURA"; 

0 INPUT NI 

0 PRINT "QUANTE AZIONI CONDIZIONALI"; 

0 INPUT Al 
0 PRINT 

0 PRINT "INTRODUCI I DIVIDENDI PER" 


73 REM INTRODUCI LA MATRICE DEI DIVIDENDI 


S0 POR 1=1 TO Al 
?0 POR J=! TO NI 

•00 PRINT "AZIONE";I;"SOTTO LO STATO";J; 
110 INPUT A<Ij 
120 NEXT 7 
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::o nekt : 
no print 

l 40 • ' o=:j 

•fé print «introduci le probabilità' anteriori e condizionali " 

rop* f = « -f-Q 

:i* ''RINT "PER LO GTRTO" ; I ; 

ITO INPUT PI I.' /Pili> 

ICO N0=Xe*FlII) 

• ■:■= 

•co nè::t 

ZOO IR 10=1 THEN 230 

210 PRINT "FRODABILITO' PRECEDENTI NON SONO UGUALI A 1.0." 

220 GOTO 140 
200 FRINT 

240 PRINT “INTRODUCI IL FORMATO DEL CAMPIONE <0 PER FINE)"; 

250 INPUT S 

255 IF S=0 THEN 670 

250 PRINT 

200 PRINT “INTRODUCI IL NUMERO REALE DI SUCCESSI"; 

200 INPUT II 

201 REM CALCOLA I COSTI ATTESI PER IL FORMATO CAMPIONE 

M f « — >“ 

- .y . i. —. — * * 

-tv . I -w-A 

:to for t=: to 3 
360 IF MU)=Ò THEN 420 
270 2=1 

rnp *. = « 7 a m f 

230 2=2».. IO 
400 ne:;t :< 

410 m t . t : =loo or i o*m < ; > > 

420 NEKT : 

430 P4=0 

; 50 POR H=1 TO NI 

453 REM RIASSEGNA LA VEROSIMIGLIANZA IN P5<> 

460 > =FNR'ESP < 1K1 )-Mf2•>-MC">>fI!*LOA< P2 < H'• "»+<P-11 )*L00< 1 -P2 ( 'H)'>) 

45? REM RIASSEGNA LA PROBABILITÀ' CONGIUNTA IN P3<> 

470 R3 < H> =F5'H2*P1CH> 

474 REM COMMA LA PROBABILITÀ' CONGIUNTA IN P3<> 

475 P4=P4*P3IH> 

430 NE.VT H 

4?? REM CALCOLA I VALOR! MONETARI ATTESI 
430 POR 1=1 TO A! 

500 E'I : =0 

510 POR , T =1 TG NI 

=20 £f 7 ‘ =E ' I ' +■ A' I . Tl *'F , 3' t , !.'F 4"il 

530 NEZT "» 

525 L’EST I 
540 PPINT 

550 PRINT "DATI“.II;"SUCCESSI IN UN FORMATO BI":S;"," 

560 PRINT "I VALORI ATTESI SONO" 

575 pr.p ; = < yn ai 

=•40 "OZÌ'TtE" ' I; ”"E,I> 

530 NEXT I 
200 PRINT 

510 PRINT "REVISIONI DELLE PROBABILITÀ"'' " 

SCO PRINT "STATO ANTECEDENTE VEROSIMIGLIANZA CONGIUNTA POSTERIORE" 

500 rrf; 70 fi; 

640 PRIÌIT I. TRB<S) ; F 1 < I ) ; TAE<24 ) ; P5CI > ; TAB<36> ; F'3< I ) ; 

645 PRINTTAB<50)FNR<P3<!,VP4> 

Uè GOTO 240 
670 END 


Bibliografia 

Cabot e Harnett, Art Introduclion lo Management Science. Reading, Mass.: 
Addison-Wesley, 1977. 
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QUANTITÀ’ ECONOMICA DI UN ORDINE 


Lo scopo di questo programma è quello di calcolare la quantità di ordinazio¬ 
ne per una data voce, in modo che l’ordine risulti il più economico possibile. 
Dovete introdurre il numero di intervalli di prezzo possibili, gli intervalli vanno da 
un prezzo minimo ad un massimo, quindi inserite la minima quantità, la massima 
quantità ed il prezzo per ogni livello, il costo della proprietà inventariata come 
percentuale del costo unitario, il costo dell’ordinazione (in dollari) e la quantità di 
domanda annuale. Il programma computa l’EOQ (Economie Order Quantity) di 
ogni intervallo di prezzo, e indica se la quantità e compresa fra le quantità minime 
e massime del livello. 


Note al programma 

Può essere utile introdurre il costo della proprietà come un ammontare fisso 
di lire per unità. In questo caso fate questi cambiamenti: 


FRINÌ "INTRODUCI IL COSTO UNITARIO DI PROPRIETÀ' 
:r,0 H=H.'100 REM RIDA DA CANCELLARE 

Cls? E= INT<SOR 112*B#S>.W> 


I vostri intervalli di prezzo possono essere computati come una percentuale 
di un prezzo fisso. In tal caso fate questi cambiamenti: 


SO FRINÌ "INTRODUCI IL NUMERO 
"0 INPUT S 

re FRINÌ "INTRODUCI IL PREZZO 
'4 INPUT ’Jl 
30 FRINÌ 

PO FRINÌ "INTRODUCI QUANTITÀ' 

100 POR 1*1 Tu 8 

I1S FRINÌ "AL BREAK DI PREZZO 1 

120 INPUT Q<i,I>,CK2,I>,Bl 

122 U : I ; -U1 - INT 'Ul+Dl 5.V13C 

100 NENT I 

140 FRINÌ 

150 FRINÌ "INTRODUCI IL COSTO 
200 rl=H.’100 RI 

SIS E=INT ;S0R : 12*D*S>. : 


DI BREAK DI PREZZO DISPONIBILE"; 
DELL'UNITA' BASE"; 

MINIMA, QUANTITÀ' MASSIMA, PERCENTUALE" 


UNITARIO Di PROPRIETÀ 
IN RIDA DA CANCELLARE 
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Esemplo 


Joe è l’agente agli acquisti di una piccola industria di manufatti, egli deve 
ordinare le armature per i motori da una fabbrica. Tale fabbrica offre tre intervalli 
di prezzo alla compagnia di Joe: da 0 a 499 unità $ 5,00 per unità, da 500 a 999 
unità $ 4,50 per unità, oltre le 1000 unità $ 3,90 per unità. La compagnia di Joe 
richiede 10000 unità per anno. $ 20,00 sono necessarie per ogni ordine (corrispon¬ 
denza ecc;). Circa il 20% del costo di una unità viene perso neH’imballaggio, 
trasporto ecc. Quanti ordini, e di quante unità, dovranno essere fatti in un anno 
per minimizzare i costi? 


Risposta: Joe deve fare 15 ordini di 666 unità ognuno. 


QUANTITÀ' ECONOMICA DI UN CADINE 

INTRODUCI IL NUMERO DI INTERVALLI PI BREZZO rCF. 

INTRODUCI LA MINIMA QUANTITÀ .. LÀ MASSIMA QUfiNT 
AL PUNTO DI ERESI: PI PRC2C 2 ? C . 435 : 

AL PUNTO DI BREAK PI PREZZO 2 0 «OC , 59? 4.E 

AL PUNTO DI BREAK PI PREZZO 0 ? 2300 59555 

INTRODUCI 
INTRODUCI 
INTRODUCi 
? 10000 

CEO 
532 
566 

4 c 


» DI ORDINI 


14 


QUANTITÀ P 
3 - 455 
500 - ?99 
lèdo -39555 


IL COSTO UNITARIO Di PROPRIETÀ: ' Mi PEi 
IL COSTO DI UH ORDINE , 
LA QUANTITÀ DI DOMANDA PER ANNO :D=F 



•RIO 


INTRODUCI LA QUANTITÀ DI DOMANDA PER ANNO :3=FINE! 

? 0 

VUOI RIUTILIZZARE QUESTO PROGRAMMA CON NUOVI DATI" . 


Problemi pratici 

1. Se si hanno questi tre intervalli di prezzo: $ 2,50 per unità da 0 a 999 unità, $ 
2,25 ognuna per 1000-1999 unità e $ 2,00 per ogni unità fino a 9999 unità. E se il 
costo di una ordinazione è di $ 50,00 e il costo di proprietà rappresenta il 10% del 
costo di una voce. Qual’è l’EOQ, tenuto conto che la domanda annuale è di 5065 
unità? 

Risposta: L’EOQ è di 4 ordini di 1500 unità ognuno. 

2. Quattro intervalli di prezzo: $ 89,00 da 0 a 9 unità, $ 82,50 da 10 a 19 unità, 
$ 78,00 da 20 a 29 unità e $ 75,00 da 30 unità in avanti. Costo di una ordinazione $ 
75,00. Costo di proprietà 15% del costo di una unità. Per un ordine annuale di 50 
unità, quale è l’EOQ? 


134 






Risposta: L’EOQ è di 2 ordini di 25 unità ognuno 


Llstlng del programma 

10 FRI NT "QUANTITÀ" ECONOMICA DI Liti ORDINE" 

20 REM — CAMBIA LE DIMENSIONI DELLE MATRICI 012-U: E '.'IN; SE NECZ’SAR” 

30 REM — DOVE AMASSIMO NUMERO DI INTERVALLI DI .-PEZZO USATI 
40 DIM GK2,10),U<1O) 

SO FRINÌ 

50 PRINT "INTRODUCI IL NUMERO DI INTERVALLI DI PREZZO POSSIBILI"; 
re INPUT B 
30 PRINT 

30 PRINT "INTRODUCI LA MINIMA QUANTITÀ'- LA MASSIMA QUANTITÀ' E IL PREZZO" 

100 POR 1=1 TO B 

110 PRINT "AL PUNTO DI BREAK DI PREZZO";!: 

120 INPUT Q(l,U,a<2,I>,U<I> 

ISO NEKT I 
140 PRINT 

150 PRINT "INTRODUCI IL COSTO UNITARIO DI PROPRIETÀ' X PER UNITA'I 

160 INPUT H 

170 IF H>0 THEN 200 

ISO PRINT "IL COSTO DI PROPRIETÀ' DEVE ESSERE MAGGIORE DI ZERO." 

130 GOTO ISO 
200 H=H. '100 

210 PRINT "INTRODUCI IL COSTO DI UN ORDINE 
220 INPUT S 

230 PRINT "INTRODUCI LA QUANTITÀ' DI DOMANDA PER ANNO CONFINE?" 

240 INPUT D 

250 IF D=0 THEN 44© 

260 PRINT 

270 REM STAMPA I RISULTATI 

280 PRINT " GEO # DI ORDINI QUANTITÀ" PREZZO UNITARI:" 

230 REM CALCOLA GEO CON LA FORMULA PER CONI INTERVALLO DI PREZZI 

300 FOR I = : TO B 

310 E=INT(3GRC(2#D#S)/<U<I» 

320 PRINTE-INTCD/E+.3),0<1 -1;0(2,1>,U<I>; 

330 REM ESAMINA SE GEO RICADE ALL'INTERNO DELLA QUANTITÀ' D'ORDINE PER. QUESTO 

335 REM PREZZO 

340 IP Q<1-I>3E THEN 330 

350 IF QC2-IKE THEN 330 

360 PRINT 

370 GOTO 400 

380 REM IL BREAK DI PREZZO NON E" DISPONIBILE A QUESTO CCE 
330 PRINT"-- IMPOSSIBILE" 

40O NEXT I 
410 PRINT 
420 GOTO 230 

430 REM RIPARTI 0 INTERROMPI IL PROGRAMMA ? 

440 PRINT 

450 PRINT "VUOI RIUTILIZZARE QUESTO PROGRAMMA CON NUOVI DATI? (CNN)": 

460 INPUT Zt 
470 IP Z*="S" THEN 50 
480 IF Z*C"N" THEN 450 
490 END 


Bibliografia 

Chase e Aquilano Production and Operations Management, 111: Richard D. Irwin, 
Ine., 1977. 

Mac Laughlin e Pickhardt. Quantitative Techniques for Management Decisions. 
New York: McGraw-Hill, 1975 
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QUANTITÀ’ ECONOMICA 
DI UNA PRODUZIONE 


È utile sapere la quantità ottimale da produrre per una data voce, in modo 
tale da poter minimizzare le spese. Questo programma computa questa quantità, e 
incorpora simultaneamente i calcoli di vendita (nel caso in cui le unità siano 
vendute prima di essere prodotte). 

Per usare il programma, introducete la quota di produzione, la vendita o la 
quota usata (numero medio di unità tolte dalFinventario ogni giorno), il numero 
totale di unità vendute in un anno, il costo di proprietà (in dollari per unità). Il 
programma fornise il numero ottimale di revisioni per anno e la quantità ottimale 
da produrre in ogni lotto. La quantità ottimale è quella che minimizza i costi di 
revisione e di trasporto. 


Esempio 

La WPF produce molte vernici di colore diverso usando una sola macchina a 
riempimento. La macchina produce 300 galloni di vernice al giorno, e, normal¬ 
mente, la WPF vende 125 galloni di vernice al giorno e 35000 galloni per anno. Il 
costo di proprietà è di $ 0,15 per gallone. Per ogni lotto, di un certo colore, 
prodotto, la macchina deve essere completamente pulita, al costo di $ 150. Quanti 
lotti per ogni colore all’anno deve produrre la WPF? Quanti galloni in ogni lotto? 

Risposta: Ogni anno la WPF deve produrre tre lotti di 11666 galloni ognuno. 


QUANTITÀ' DI PRODUZIONE ECONOMICA 


INTRODUCI IL 
INTRODUCI I 

INTRODUCI IL 


TASSO DI PRODUZIONE «UNITA VOI ORNO 0 ZOO 
PREZZI 0 IL TASSO CI USO PUNITA'. "SIORNO.' 7' ZZO 

INTRODUCI I PREZZI 0 L'USO ANNUO? 05000 
COSTO DI PROPRIETÀ' UNITARIO ■:$. PER UNITA ' ? T .15 

r ^ ■| -> T ti ppoTft r- - r, ''C T P' ‘ f '‘ 


NUMERO OTTIMALE DI COSTRUZIONI = 3 ALL'ANNO 

ORE = USSS UNITA" 


VUOI RIUTILIZZARE IL PROGRAMMA CON NUOVI DATI ? IS.'NZ? N 
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Problemi pratici 

1. Una produzione giornaliera di 45 unità, con vendita giornaliera di 20 unità. 
Vendita totale annua di 4000 unità, costo di proprietà di $ 0,67 per unità, costo di 
revisione di $ 25,00. Che EPQ avrà? 

Risposta: 5 lotti di 800 unità ognuno. 

2. Se 50 unità vengono prodotte e 35 unità vengono vendute ogni giorno, se la 
vendita annuale è di 6500 unità. Ed i costi di proprietà e di revisione sono 
rispettivamente di $ 0,45 per unità e $ 60,00 per lotto. Quale è il numero di lotti 
ottimale? E quale la sua dimensione? 

Risposta: 3 lotti di 2166 unità. 


Llstlng del programma 


10 FRIUT "QUANTITÀ' DI FRODICIOHE ECONOMIOR" 

20 PRIMI 

30 PRINT "INTRODUCI IL TASSO DI PRODUZIONE 'UNITA'GIORNO"; 

40 INPUT R 

50 IF R30 THEN 100 

60 PRINT 

70 PRINT "IL TASSO DI PRODUZIONE DEVE ESSERE SUPERIORE A ZERO." 

30 PRINT 
30 00T0 30 

100 PRINT " INTRODUCI I PREZZI 0 IL TASSO DI USO (UNITA V3IORMO"; 

110 INPUT U 

120 IF U>=0 THEN 170 

130 PRINT 

140 PRINT "PREZZI TASSO (D'USO) DEVONO ESSERE N0N-NULLI." 

150 PRINT 
160 GOTO 100 

170 PRINT " INTRODUCI I PREZZI 0 L'USO ANNUO"; 

130 INPUT H 

130 IF H>=U THEN 240 

200 PRINT 

210 PRINT "IL TASSO ANNUO DEVE ESSERE SUPERIORE AL TASSO GIORNALIERO" 
220 PRINT 
230 GOTO 170 

240 FRI NT "INTRODUCI IL COSTO DI PROPRIETÀ ' UNITARIO il. PER UNITA "I".: 

250 INPUT 7 

260 IF J30 THEN 310 

270 PRINT. 

230. PRINT "IL COSTO DI PROPRIETÀ' DEVE ESSERE MAGGIORE DI ZERO." 

230 PRINT 
300 GOTO 240 

3I0 PRINT " INTRODUCI IL COSTO DI COSTRUZIONE il. 

320 INPUT 3 
330 PRINT' 

340 IF s>0 THEN 330 

350 PRINT "IL COSTO DI COSTRUZIONE DEVE ESSERE MAGGIORE DI ZERO." 

360 PRINT 
370 GOTO 310 

330 REM STAMPA I RISULTATI 
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338 m=ikt<sqr< < : ;*h.v< 2 *s> :■ * ; i - •*> > :*.z: 

40O PRINT "HUMERO OTTIMALE EI COSTRUZIONI = ";N. " ALL ANNO" 

410 PRINT ” ORE =": INTIR'N. ; "UNI”'" 

420 REM RIPARTI 0 INTERROMPI IL PROGRAMMA ? 

430 PRINT 

440 PRINT "VUOI RIUTILIZZARE I_ PROGRAMMA CON NUOVI IATI ‘ 2.' 

450 INPUT 2$ 

460 IF Z*="S" THEN 20 
470 IF Z*C"N" THEN 440 
430 END 


Bibliografia 

McLaughlin e Pickardt. Quantitative Techniques for Management Decisions New 
York: Me Graw-Hill, 1975. 
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TEORIA DELLA STIMA STATISTICA 


La teoria della stima statistica è la scienza che determina, per varie statistiche 
una stima non influenzata da figure campioni, essa stabilisce sicuri intervalli di 
stima per queste statistiche, e determina il numero di campioni che devono essere 
condiderati per ridurre la probabilità di errore in queste stime massime. Il 
programma seguente fornisce tali calcoli. 

All’inizio dovete introdurre la dimensione del campione, la media del cam¬ 
pione e la varianza del campione. Il programma fornisce una stima indipendente 
dalla varianza della popolazione, ed inoltre fornisce, sia per la deviazione media 
che per quella standard, ognuno dei sette livelli diversi di sicurezza, viene dato 
anche il sicuro intervallo di stima ed il minimo e il massimo valore prodotto da 
esso. Potete usare il programma su un grande numero di campioni per ridurre 
l’errore della stima. Se volete calcolare la deviazione media o quella standard, 
dovrete introdurre il livello di sicurezza desiderato, ed il massimo errore desidera¬ 
to; il programma, in tal caso, calcolerà la dimensione del campione occorrente. 


Esempio 


Un ricercatore del governo fa uno studio per determinare quanto tempo si 
deve attendere in coda all’ufficio postale. Prende 100 campioni, la durata d’attesa 
media sui cento campioni, è di 15 minuti, e la varianza del campione è 2,02. Ad 
ognuno dei sette livelli di sicurezza quale è il minimo e quale il massimo della 
deviazione media e di quella standard? Quanti campioni deve considerare per 
avere il 99% di sicurezza che l’errore nella media non sia maggiore di 0,2? 
Risposta: 

TEORIA LI STIMA STATISTICA 

INTRODUCI IL NUMERO DI CAMPIONI PRESI IN CONSIDERAZIONI 
? 100 

INTRODUCI LA MEDIA LEI CAMPIONI 
5 15 

INTRODUCI LA VARIANZA DEI CAMPIONI 
? 2.02 

STIMA NON DEVIATA DEL SIGMA QUADRO 
VARIANZA DELLA POPOLAZIONE = Z.04040404 
INTERVALLI DI AFFIDABILITA' STIMATI PER LA MEDIA 


LIVELLO LI 

PIU' 0 



AFFIDABILITA' 

MENO 

. i 1 !*_■ 

T’II. Il 

50 

.036346016 

15.056346 

< .* : - E7j 

60 

.13450375? 

15.1345033 

li.3654562 

70 

. 143046377 

15.14304? 

14.351353 

30 

.1S3O60302 

15.1S30603 

‘ *, ' L Zi'"'47 

30 

.234355361 

•5.2345554 

14.7650446 

3? 

.367936139 

3679332 
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INTERVALLI DI AFFIDABILITA' STIMATI 
PER LA DEVIAZIONE STANDARD 


50 

. 0681 2632 13 

1.43655404 

1.3683802 

SO 

.8351085133 

I.52353564 

1 « 33331 36 

70 

.104685021 

1.5 3311214 

1. 1-237421 

30 

.129443181 

1.5573783 

* * 55^2^4 

30 

.ISSI38529 

1.59456565 

1.26223853 


.137366273 

I.62639339 

1.61046005 

Ciq 

.250171595 

1.68859372 

' 4 C' /CTCC' 


VUOI UN CALCOLO DELLA LARGHEZZA 
DEL CAMPIONE CHE DEVI PRENDERE 
PER RIDURRE L'ERRORE DI STIMA 
ADJJNA QUANTITÀ' MASSIMA CS.W 

INTRODUCI IL LIVELLO DI AFFIDRBILITA' DA TE SCELTO 
<FRA LE SOLE SCELTE PRECEDENTI:, 1 PER SO, 

2 PER SO, 3 PER 70, 4 PER 30, 5 PER 30, 

6 PER 35, E 7 PER 33 
<■% 

INTRODUCI IL MASSIMO ERRORE DI STIMA DESIDERATO 

STÀI ESAMINANDO LA MEDIA %M> 0 LA 
DEVIAZIONE STANDARD CS)T 

? M 

AL LIVELLO DI AFFIDABILI!*' PERCENTUALE DI 33 

SAREBBE NECESSARIO ASSUMERE UN CAMPIONE DI 333 PER ESSERE SICURI OHE L7 "OSTAR 

TIMA 

DELL'ERRORE DELLA MEDIA 
NON SIA SUPERIORE A .2 
NON HAI ALTRI CALCOLI :3>, 

ALTRI CON LO STESSO CAMPIONE Cl> 

0 CON UNA NUOVA CAMPIONATURA <2>? 

7 0 


Problemi pratici 

1. Usando i dati precedenti, quanti campioni vanno considerati per ridurre 
l’errore della deviazione standard a 0,75 con un livello di sicurezza del 99%? 

Risposta: 1204 

2. Se tutti i dati sono gli stessi del problema precedente, quanti campioni 
vanno considerati per ridurre l’errore nella media a 0,1 con un livello di sicurezza 
del 95%? 

Risposta: 784 
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Listing del programma 

10 PRINT "TEORIA 01 STIMA STATISTICA” 

20 OIM C(?>,F<7> 

30 POR 1=1 TO 7 
40 READ C<I),F(I) 

50 NEXT I 

60 PRINT "INTRODUCI IL NUMERO DI CAMPIONI PRESI IN CONSIDERAZIONI" 
70 INPUT N 

80 PRINT "INTRODUCI LA MEDIA DEI CAMPIONI" 

?0 INPUT X 

100 PRINT "INTRODUCI LA VARIANZA DEI CAMPIONI" 

110 INPUT S2 
120 S1=32*H/;N-1> 

130 PRINT "STIMA NON DEVIATA DEL SIGMA QUADRO" 

140 PRINT “VARIANZA DELLA POPOLAZIONE = ";31 
ISO S=SQR(S1> 

2S0 S3=S/SQR<N) 

230 PRINT "INTERVALLI DI AFFIDABILITA' STIMATI PER LA MEDIA:" 

300 PRINT 

310 PRINT "LIVELLO DI PIU' 0" 

320 PRINT "AFFIDABILITA"," MENO",,"MASSIMO",,"MINIMO" 

330 FOR 1=1 TO 7 

340 PRINT " ";C<I>,F <I> *S3,X+F <I>*S3,X-F <I)*33 

350 NEXT I 
360 PRINT 

370 PRINT “INTERVALLI DI AFFIDABILITA' STIMATI" 

330 PRINT "PER LA DEVIAZIONE STANDARD" 

330 PRINT 

400 FOR 1=1 TO 7 

410 J=F<I>*S/SQR<2*N> 

420 PRINT “ ";C(D,J,S+J,S-J 

430 NEXT I 
440 FRINT 

450 PRINT "VUOI UN CALCOLO DELLA LARGHEZZA" 

460 PRINT "DEL CAMPIONE CHE DEVI PRENDERE" 

470 PRINT "PER RIDURRE L'ERRORE DI STIMA" 

480 PRINT "AD UNA QUANTITÀ' MASSIMA CS/NV 

430 INPUT Bt 

500 IF Bt="N" THEN 730 

510 IF ETC>"S" THEN 450 

520 PRINT "INTRODUCI IL LIVELLO DI AFFIDABILITA' DA TE SCELTO" 

530 PRINT "(FRA LE SOLE SCELTE PRECEDENTI), 1 PER 50," 

540 PRINT "2 PER 60, 3 PER 70, 4 PER S0, 5 PER 30," 

545 PRINT "6 PER 35, E 7 PER 33" 

550 INPUT J 

560 PRINT "INTRODUCI IL MASSIMO ERRORE DI STIMA DESIDERATO" 

570 INPUT M 

530 PRINT "STAI ESAMINANDO LA MEDIA <M> 0 LA" 

538 PRINT "DEVIAZIONE STANDARD (S>?“ 

600 INPUT Ct 
610 IF Ct="S" THEN 630 
628 IF CtO"M" THEN 530 
640 N3=IHT(<S*F(J;/M)T2)+1 
650 GOTO 630 

680 N3= I NT ( < ( F < J) *S/M> 42 X '2 >+1 

630 PRINT "AL LIVELLO DI AFFIDABILITA' PERCENTUALE DI";C(J> 

780 PRINT "SAREBBE NECESSARIO ASSUMERE UN CAMPIONE DI"; 

710 PRINT N31"PER ESSERE SICURI CHE LA VOSTRA STIMA" 

720 PRINT "DELL'ERRORE DELLA 
730 IF Ct="S" THEN 760 
740 PRINT "MEDIA" 

750 GOTO 770 

760 PRINT "DEVIAZIONE STANDARD" 

770 PRINT "NON SIA SUPERIORE A";M 
730 PRINT “NON HAI ALTRI CALCOLI <0>," 

730 PRINT "ALTRI CON LO STESSO CAMPIONE CD" 

300 PRINT "0 CON UNA NUOVA CAMPIONATURA <2>?" 
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310 INPUT V 
320 IF V-l THEN 440 
900 DATA 58, 3.5744902454373 
910 DATA 60, 3.9416214285714 
920 DATA 70, 1.3364335334476 
933 DATA 83, 1.2815515669516 
943 DATA 90, 1.6448536821705 
950 DATA 95, 1.9599641325641 
960 DATA 99, 2.575827586207 
999 END 


Bibliografia 

Harnett. Introduction to Statistical Methods 2da ed. Reading, Mass.: Addison- 
Wesley, 1975. 

Spiegai. Statistics. New York: McGraw-Hill, 1961. 


144 



STATISTICA 


Questo programma analizza dati raggruppati e dati non raggruppati, e 
fornisce ventisei statistiche: misura della tendenza centrale, varianza, devianza, 
kurtosità e correlazione. 

Quando eseguite il programma introducete la popolazione totale (se è cono¬ 
sciuta) o zero (se essa è conosciuta). Se i dati sono in gruppo introducete “G”, se 
essi non sono raggruppati introducete “U”. 11 passo successivo è quello di 
introdurre la frequenza, seguita dal valore osservato a quella frequenza. Dopo 
l’ultima voce introducete il valore di frequenza zero. Se introducete dati non 
raggruppati, introducete anche le osservazioni, dopo la ultima osservazione 
introducete 9E9. Il programma calcola e mostra le statistiche, indica inoltre quelle 
impossibili sulla base delle entrate. 

Note al programma 

Questo programma accetta un massimo di 250 osservazioni raggruppate o 
non raggruppate. Per cambiare tale massimo, modificate le linee 10 e 15 del 
programma come segue: 

10 DIM S(40),X(I),Y(I),Z(I) 

15 NI I 


Sostituite l’espressione I con una costante uguale al numero massimo di 
osservazioni desiderate. 


Esemplo 

Randy è il disk jockey di un locale. Nella settimana ha fatto una lista in cui 
sono valutate alcune canzoni su una scala da 1 a 10. 100 ascoltatori sono chiamati 
a dare un punteggio ad un disco, i risultati dell’inchiesta sono i seguenti: 


PUNTI 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


NUMERO ASCOLTATORI 
13 
6 
2 
4 

10 

13 

22 

18 

10 

2 
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Nel lessico di Randy, una canzone con una media di 7 punti o più è “la più 
gradita”. Se la media è tra 5 e 7 la canzone è detta “ben piazzata”. Se la media è 
sotto i 4 il disco è tolto dell’ascolto. Sulla base dei dati mostrati, quale sarà la 
classifica del disco? 

Risposta: Questo disco rientra nella categoria dei “ben piazzati, la sua media 
è di 6,59. 


STATISTICHE 

INTRODUCI LA POPOLAZIONE TOTALE <0=SC0NSCIUTA>? 108 

I DATI SONO RAGGRUPPATI <G) 0 NON RAGGRUPPATI IfOSG 
INTRODUCI LA FREQUENZA. QUINDI IL VALORE <0,0 PER FINE) 


COPPIA 

HO. 1 

7 

13 

4 1 

COPPIA 

NO. 2 


£ 4 

7 

COPPIA 

NO. 3 


o 

3 

COPPIA 

NO. 4 

? 

4 ^ 

4 

COPPIA 

NO. 5 

? 

10 

4 5 

COPPIA 

NO. 6 

9 

13 

4 O 

COPPIA 

NO. 7 


22 

—f 

COPPIA 

NO. 8 

7 

18 

4 8 

COPPIA 

NO. 9 

? 

18 

4 9 

COPPIA 

NO. 10 ? 2 

4 18 

COPPIA 

NO. 11 

? 0 

4 0 

RISULTATI TABULATI 

COME 


POPOLAZIONE TOTALE: 100 
I DATI SONO:RAGGRUPPATI 
NO. DI CAMPIONI' 130 
SOMMA DEI CAMPIONI: 5S3 
MEDIA: 5.SS 

SOMMA DEI QUADRATI: 4077 

DEVIAZIONE MEDIA: 2.141 

MEDIANA: 6.59030903 

VARIANZA: 6.78103396 

DEVIAZIONE STANDARD: 2.60405452 

STIMATORE NON DEVIATO DELLA VARIANZA: 6.84959592 

DEV. STD. USANDO QUESTA VARIANZA: 2.61717327 

ERRORE PROBABILE: 1.75640874 

ERRORE STD. DI MEDIA: .261717327 

COEFF. DI VARIAZIONE' 44.6664584 V. 

TERZO MOMENTO AVENTE PER POLO LA MEDIA :-11.946726 

QUARTO MOMENTO AVENTE PER POLO LA MEDIA 185.383543 

MOMENTO COEFFICIENTE DI ASIMMETRIA -.676548188 

MOMENTO COEFFICIENTE DI KURTOSIS: 2.30495658 

STIMATORE NON-DEVIATO DEL TERZO MOMENTO CENTRALE'-12.3136735 

ERRORE STANDARD SULLA MEDIA CON FATTORE 

DI CORREZIONE PER POPOLAZIONI FINITE: 8 

SECONDO COEFF. DI ASIMMETRIA DI PEARSON'-.876605823 

CAMPO: 3 

INDICE DI DEVIAZIONE MEDIA PRODOTTA DA 
M.A.E. E DEVIAZIONE STANDARD: 1.83844307 


Problemi pratici 


1. Le letture metriche di una cisterna sono: 12,98 - 13,001 - 18,25 - 4,4 - 9,8 - 11 
- 14,5 - 12,7 - 7,2 - 6,1. Quale è la lettura metrica media? Quale è la deviazione 
standard? 
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Risposta: La lettura media è 10,9831, la mediana è 11,85. La deviazione 
standard é 3,998. 

2.Un ospedale vuole una statistica relativa all’insorgenza di malattie cardia¬ 
che in un paese. La seguente tabella mostra l’età ed il numero di malattie 
diagnosticate relativamente a quella età: 


ETÀ’ 

CASI DIAGN 
(su 1000 p 

0-5 

6 

6-10 

5 

11-20 

3 

21-25 

8 

26-30 

7 

31-35 

12 

36-40 

17 

41-45 

19 

46-50 

30 

51-55 

35 

56-60 

43 

61-65 

50 

66-70 

61 


Qual’è l’età mediana dell’insorgenza di malattie cardiache? Se sono stati 
valutati 1200 casi. Quale è la misura della devianza su questa popolazione, di 
quanto devia alla destra il valore medio? Quale è l’errore standard della media? 
(Dovete aumentare la dimensione della linea 10 fino al nuovo massimo di 300). 

Risposta: L’età mediana è di 58 anni. La deviazione è — 1,261. L’errore 
standard è di 0,90324. 


Llsting del programma 


1 FRINT "STATISTICHE" 

2 F'R I NT 

10 DIM 3<40>,X<250>,V<250>,2<258> 

14 REM N1=DIMENSI0HE DI X, V & Z 

15 HI=250 

20 FOR 1=1 TQ 40 
30 S<I>=0 
40 NEXT I 
45 S1=0 

50 PRIHT “INTRODUCI LA POPOLAZIONE TOTALE <8=SC0NSCIUTA>"; 

70 INPUT T3 
75 PRINT 

30 PRINT "I DATI SONO RAGGRUPPATI <G> 0 NON RAGGRUPPATI OO" 

30 INPUT Ut 

100 IF Ut="G" THEN 440 

104 REM -DATI NON RAGGRUPPATI 

105 J=1 

110 PRINT "VOCE NO.";j; 
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119 REM-INTRODUCI 9E9 DOPO L' ULTIMA VOCE 

120 INPUT X<J) 

130 IF X<JX>9E9 THEN 150 
140 J=J-1 
145 GOTO 190 

149 REM-CALCOLA IL NUMERO DI VOCI 

150 Sa>=S<l) + l 

159 REM CALCOLA LA SOMMA DELLE VOCI 

160 S(2)=S<2)+X(J> 

169 REM-CALCOLA LA SOMMA DEI QUADRATI 

170 S<4>=S<4>+X<J>*X<J> 

175 J=J+1 

130 IF JCN1 THEN 110 
139 REM-CALCOLA LA MEDIA 

190 S<3>=S<2VS<1> 

209 REM-CALC. DEVIAZIONE DALLA MEDIA 

210 S<5)=ABS<S<3>-X<J>) 

219 REM-CALC. LA SOMMA DELLE DEVIAZIONI 

220 SCÓ>=S<6>+3<5) 

229 REM-CALC. IL CUBO DELLA DEVIAZIONE 

230 SC3)=<XCJ>-S<3)>r:< 

239 REM-CALC. LA SOMMA DEI CUBI 

240 S<9>=S<9>+S<8> 

249 REM-CALC. LA QUARTA POTENZA DEL .LA DEVIAZIONE 

250 3<18>=<X<J>-S<3>>f4 

259 REM-CALC. LA SOMMA DELLE QUARTE POTENZE 

260 S<ll>=S<il>Ki0> 

279 REM-CALC. LA DEVIAZIONE MEDIA 

230 s<?>=s<6>. j sn> 

233 REM USA IL METODO SHELL-METZNER PER 

289 REM-SISTEMARE I DATI IH ORDINE CRESCENTE 

290 Ml=3<1) 

295 Ml=INTCMl/2) 

300 IF M1=0 THEM 370 
305 K=3<1>-Ml 
310 J=1 
315 I=J 
320 L=I+M1 

325 IF X<IX=X<L> THEN 355 
330 W=X<I> 

335 X<I)=X<L) 

340 X<L.1=W 
345 I=I—M1 

350 IF I>=M1 THEN 320 
355 J=J+1 

360 IF J3K THEN 295 
365 GOTO 315 

369 REM-CALC. LA MEDIANA 

370 IF S<l>.'2=INT<S(l>/'2) THEN 410 
379 REM HO. DISPARI DI VOCI 

330 M=S<l)/2+.5 
390 S(12>=X(M> 

4O0 GOTO S40 

409 REM NO. PARI DI VOCI 

410 M=S< 1 >.’2 

420 S<12>=(X(M.' I +X(M+1).\'2 
430 GOTO 340 

439 REM-DATI RAGGRUPPATI- 

440 PRINT "INTRODUCI LA FREQUENZA- QUINDI IL VALORE <0,0 PER F 
445 J=1 

450 PRINT "COPPIA NO.";J; 

459 REM-INTRODUCI 0,0 DOPO L' ULTIMA VOCE 

460 INPUT V<J>,Z<J> 

470 IF V<TTHEN 529 

439 REM-CALCOLA IL NO. DI CAMPIONI 
490 S<1)=S<1)+V<J> 

495 31=31*-1 

499 REM-CALC. TOTALE DEI VALORI 

500 S< 2)=S 12 >+Y < J >*Z < J> 

509 REM-CALC. SOMMA DEI QUADRATI 
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510 S<4>=S<4>*V<J>*Z<JMe<J> 

520 J=J+1 

525 IF JC=N1 THEN 450 
523 REM-CALC. MEDIO 
530 S(3)=3(2>. ’S( 1 > 

540 FOR J=1 TO 3(1 > 

543 REM-CfiLC. LO DEVIAZIONE ASSOLUTA 
550 S<5 > =V< J) *fiBS (3<3) -Z :> > 

559 REM-COLC. SOMMO DELLE DEVIAZIONI ASSOLUTE 

560 S(£)=S(6)+S(5> 

569 REM COLC. CUBO DELLA DEVIAZIONE 

570 S(S?=V<J>*<Z<J)-3<3» tO 
579 REM-CALO. SOMMA BEI CUBI 
530 S<9>=S(9)+S(«; 

503 REM-CALO. LA QUARTA POTENZA DELLE DEVIAZIONI 
590 3<10>=V<J>*(Z(J>-S<3m4 

599 REM-CfiLC. SOMMA DELLE QUARTE POTENZE 

600 S(ll)=S<il)tS<10) 

610 ne:;t j 

619 REM-CALO. LA DEVIAZIONE MEDIA 

620 S<7>=S(6VS<1> 

S2S REM USA IL METODO SHELL-METZNER PER 
629 PEM-3ISTEMARE I DATI IN ORDINE CRESCENTE 
530 M1=S1 
635 Ml=INT(Ml/2> 

540 IF M1=0 THEN 740 
545 K=S1-M1 
550. J=1 
555 I=J 
560 L=I+M1 

555 IF Z(IX=Z(L) THEN 710 
570 V=V(I> 

675 W=Z(I> 

SS0 V(I)=V(L) 

635 Z( I>=Z(L> 

690 V(L)=V 
695 Z(L>=W 
700 I=I —M1 

705 IF I>=1 THEN 660 
710 J=J+1 

715 IF J>K THEN 635 
720 GOTO 655 

739 REM-CALCOLO LA MEDIANA 

740 T=0 
750 K=1 

760 IF T+V(K»S(l>/2 THEN S00 
765 T=T+V(K) 

770 K=K+1 

7S0 GOTO 760 

7S5 IF i(OS<l> THEN 750 

300 S<12>=(Z<K>*Z<K-1».'2+<(Z<K>-Z<K-1))/V(K)>#(S<1.V2-T) 
340 N=S<1> 

350 PRINT "RISULTATI TABULATI COME SEGUE”' 

860 PRINT "POPOLAZIONE TOTALE'".: 

370 IF '"3=0 THEN 300 
330 PRINT T9 
390 GOTO 310 

300 PRINT "SCONOSCIUTO,'NON INDICATA" 

385 PRINT 

910 PRINT "I DATI SONO”; 

320 IF Ut="G" THEN 350 
930 PRINT "NON RAGGRUPPATI” 

340 GOTO 960 

350 PRINT "RAGGRUPPATI" 

960 PRINT "NO. DI CAMPIONI ";S<1> 

370 PRINT "SOMMA DEI CAMPIONI :";S<2> 

930 PRINT "MEDIA”',S(3) 

930 PRINT "SOMMA DEI QUADRATI ”';S<4> 

1000 PRINT "DEVIAZIONE MEDIA 3(7) 

1010 PRINT "MEDIANA:";S(12> 
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loro 3< 13)=3(4). ’N-3<3) t£ 

1030 FRIUT "VARIANZA:";S<13> 

I040 IF UT="0" THEN 1070 

1050 S<14>=3< 13>~( 1. '12>*<Z 12)-Z<l»t2 

1060 PRINT "VARIANZA CON CORRELAZIONE SHEP. ’ ";S<14> 

1070 3\15.‘ s SQR(S\13)) 

1050 PRINT "DEVIAZIONE STANDARD ";SII5> 

1030 IF Mf="C." THEN 1120 
■100 3<16>=SC!R<3<14)> 

Ilio F-RINT "DEVIAZIONE STANDARD CON CORR. CHEF. ' "13(16) 

1120 3(17)=S< 13'fNr‘CH-l > 

1130 FRIUT "STIMATORE NON DEVIATO DELLA VARIANZA S<17> 

114o 3( 13>=SC!R(S< 17'.' 

1150 FRINT "DEV. STB. USANDO QUESTA VARIANZA-“ 1S(1S> 

1160 341 ? -. 67443*3(15) 

1170 PRINT "ERRORE FRODABILE : ”;S<19> 

1 ISO 3{20)=SQR<3<17).'N) 

1130 PRINT "ERRORE STD. DI MEDIA ";S12G> 

1200 S(2i:=S(15>,'3(3> 

1210 PRINT "COEFF. DI VARIAZIONE " 1100*342! "Il" 

1220 S<22)=S(9VN 

12S:0 PRINT "TERZO MOMENTO AVENTE PER POLO LA MEDIA ";S<22) 

1240 3<23)=3( 1D/N 

1250 PRINT "QUARTO MOMENTO AVENTE PER POLO LA MEDIA : "S<23> 

1260 IF U*="0" THEN 1300 
1270 R=Z(2)-Z<1) 

1230 3< 24 > =S< 23)-.5*<R12)*S<17> + <7. '240) *R 44 

1290 PRINT "QUARTO MOMENTO USANDO LA CORR. SHEP.'"13(24) 

1300 3<25>=3<22)/<S<15)13) 

1310 PRINT "MOMENTO COEFFICIENTE DI ASIMMETRIA3425) 

I320 3<26>=S<23>/<S<13>72) 

1330 PRINT "MOMENTO COEFFICIENTE DI KURT0SI3-"lS<26> 

1340 3<27>«<S<22)*Nt2). , «N-l>*<N-2» 

1350 PRINT "STIMATORE NON-DEVIATO DEL TERZO MOMENTO CENTRALE ", 3(27) 

I360 IF T9=0 THEN 1420 

1370 IF N'=.05*T9 THEN 1420 

1330 S<28>=3<20)*SQR( <T9-H>/(T9-1 )) 

1390 PRINT "ERRORE STANDARD SULLA MEDIA CON FATTORE" 

1400 PRINT "DI CORREZIONE PER POPOLAZIONI FINITE ",S<28> 

I410 GOTO 1430 

Ì420 PRINT "FATTORE DI CORREZIONE R'A PER POPOLAZIONI FINITE" 

1430 3129.' =3*<S<3)-S 112) ,VS<15) 

1440 PRINT "SECONDO COEFF. DI ASIMMETRIA DI FEAR30N■";S<23) 

1450 IF U*="0" THEN 14E0 
2460 3<30)=!l'fl)-”( 1 ) 

1470 GOTO 1490 
14S0 3s'30)=Z(Si;-ZÌI) 

1490 PRINT "CAMPO ";S<30> 

I50O 3(31 )=S<7>. - <. 7973345608*5<25)> 

1510 PRINT "INDICE DI DEVIAZIONE MEDIA FRGDOTTA DA" 

1520 PRINT "M.A.E. E DEVIAZIONE STANDARDS<31> 

1530 END 
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STIMA NON INFLUENZATA 
DI DEVIAZIONE STANDARD 


Il concetto di stima statistica non influenzata della deviazione standard non è 
molto usato nella statistica. Tuttavia in accordo con il matematico russo Sveshi- 
nov, la stima non influenzata della deviazione standard è data dalla seguente 
formula: 


9 * K N V N - 1 L (x i " X)2 
J = 1 


dove 


K 


N 



Nel termine Kn il numeratore ed il denominatore della frazione alla destra sono 
funzioni di gamma, che (poiché N può essere sia pari che dispari) vengono date 
una volta per intero ed una volta per un intero e mezzo. La funzione gamma di un 
intero è definita come fattoriale dell’intero meno uno. La funzione gamma di un 
numero non intero è simile; per esempio, la funzione gamma di 4,5 è: 


3,5x2,5xl,5x T (1,5) 


dove la funzione di 1,5 è 0,8862269255. 

Per usare il programma introducete il numero di campioni, e la somma dei 
quadrati della deviazione. Il programma fornisce la stima non influenzata della 
deviazione standard, e vi chiede se volete altri conti. NOTA: Potrete introdurre un 
problema con molti campioni anche su piccoli computer. 


Esemplo 

In una classe di 35 alunni, la somma dei quadrati della deviazione della età è 
3,156. Quale è la stima della deviazione standard? 

Risposta: 0,30691769 
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3"r« NON INFLUENZATA DI DEVIAZIONE STANDARD 

QUESTO PROGRAMMA CALCOLA La STIMA 

NON INFLUENZATA CELLA DEVIAZIONE 

OLEICO LE VARIABILI SONO DIE TRI EU ITE NORMALMENTE 

INTRODUCI LA SOMMA TEI QUADRATI 
BELLA DEVIAZIONE 
? 3. 156 

INTRODUCI IL NUMERO DI CAMPIONI 
? 35 

STIMA NON INFLUENZATA DI DEVIAZIONE 
STANDARD® .30691769 
ALTRI CALCOLI ’ 13.'N> 


Problemi pratici 

1. Se 40 campioni hanno una distribuzione di random, e la somma dei 
quadrati della loro deviazione è 9,63 quale è la stima non influenzata di deviazione 
standard? 

Risposta: 0,500108774 

2. In un gruppo di 26 campioni con distribuzione di random, la somma dei 
quadrati della deviazione è 34,953. Quale è la stima non influenzata di deviazione 
standard? 

Risposta: 1,1943016 


Llsting del programma 


5 F'RINT "STIMA NON INFLUENZATA DI DEVIAZIONE STANDARD" 

IO PRINT "QUESTO PROGRAMMA CALCOLA LA STIMA" 

20 PRINT "NON INFLUENZATA DELLA DEVIAZIONE" 

30 PRINT "QUANDO LE VARIABILI SONO DISTRIBUITE NORMALMENTE" 
40 PRINT 

50 FRINT "INTRODUCI LA SOMMA DEI QUADRATI” 

60 PRINT "DELLA DEVIAZIONE" 

70 INPUT S 

30 PRINT "INTRODUCI IL NUMERO DI CAMPIONI" 

90 INPUT N 

99 REM-CALCOLA IL TERMINE RADICE QUADRATA 

100 A=SQR<S/ai-lIO 

109 REM-CALC. IL NUMERATORE DEL TERMINE K-SUB-N 

110 B=«N~1V2>-1 
130 OOSUB 1000 
160 N1=G 

169 REM-CALC.IL DENOMINATORE DEL TERMINE K-SUB-N 

170 B=<N/2>-l 
210 GOSUB 1000 
220 D1=0 
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230 FRINT "STIMA NON INFLUENZATA DI DEVIAZIONE" 

260 FRINT "STANDARD 3 "; A'*<M1*SQR< (N-l >.'2>.'DI > 

270 FRINT “ALTRI CALCOLI ? <S,’NV 
230 INPUT V* 

290 IF VT="S" THEN 50 
300 GOTO 1150 

939 REM-SOTTOPROGRAMMA FUNZIONE GAMMMA DI UN INTERO 
1000 G=1 

1010 IF BOINT<B> THEN 1100 

1020 FOR 1=2 TO B 

1030 G=G*I 

1040 NEXT I 

1050 RETURN 

1098 REM- SOTTOPROGRAMMA FUNZIONE GAMMA PER UN 

1099 REM-INTERO E MEZZO 

1100 FOR I=B TO 1.5 STEP -1 
1110 G=G*I 

1120 HEXT I 
1130 G=G*0.3862269255 
1140 RETURN 
1150 END 
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CHI-QUADRO 


Il test del chi-quadro in statistica, mostra la compatibilità fra le frequenze 
osservate e le frequenze attese o teoriche. Per esempio, supponiamo di lanciare un 
dado per saggiare se esso è ben fatto, o se è inclinato. Lanciamo il dado 60 volte, 
segnando i risultati ogni volta. Se il dado è ben fatto ci attendiamo che ogni sua 
faccia esca circa dieci volte nel test. Ma dato che gli eventi reali, non sempre 
corrispondono alle attese teoriche, non è detto che ciò accada. Il test chi-quadro ci 
dà la determinazione media fra i valori osservati e quelli teorici, se tale media è 
molto divergente non si può considerare il dado ben fatto. 

Chi-quadro è determinato come segue: 



dove O rappresenta la frequenza osservata ed E la frequenza attesa. Gli statistici 
hanno determinato che il chi-quadro deve essere inferiore ad un certo valore (il 
valore critico 5%), affinchè due risultati siano compatibili, cioè, abbiamo il 95% 
positivo. Questo programma mostra se i risultati reali cadono in questo livello di 
sicurezza. Il programma utilizza anche la correzione Yate (la quale è preferita da 
alcuni studiosi di statistica) per controllare i risultati. La formula del chi-quadro 
con la correzione di Yate è: 



Il programma controlla anche i risultati molto buoni (al disotto del valore 
critico 95%), facendo un lavoro di critica sui risultati stessi. 

Il programma chiede come prima cosa se la frequenza attesa è una costante. 
Nell’esempio precedente, ci aspettiamo ogni faccia dieci volte, quindi rispondere¬ 
mo “si” a questa domanda, ed introdurreno 10 come costante. Quindi introducia¬ 
mo la frequenza osservata per ogni faccia, introdurremo 99999 dopo l’ultima 
frequenza. Se la frequenza attesa non è costante, il programma vi chiederà i gruppi 
di frequenze attese e osservate. Dopo l’ultimo ingresso, introducete 99999,1 per 
terminare la sequenza. 
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Il programma fornirà il chi-quadro, sia con la correzione Yate sia senza tale 
correzione, e indicherà i gradi di libertà. Indi controllerà ogni statistica sui valori 
critici del 5 e del 95%, e scriverà i risultati. 


Esemplo 

Supposto che il risultato dei 60 lanci del dado dell’esempio precedente sia: 


Faccia 

Atteso 

Reale 

1 

10 

9 

2 

10 

8 

3 

10 

12 

4 

10 

10 

5 

10 

13 

6 

10 

8 


Quali sono i risultati del test del chi-quadro? Il dado può considerarsi ben 
fatto? 

Risposta: Il dado può considerarsi ben fatto. 


CHI-QUADRO 

IL TOTALE DELLA FREQUENZA ATTESA E' 
COSTANTE <S/N> 

? S 

INTRODUCI LA FREQUENZA ATTESA COSTANTE 
? 10 

INTRODUCI LE FREQUENZE OSSERVATE UNA AD 
UNA COME RICHIESTO IN SEGUITO 
INTRODUCI 99999 PER FINIRE 

? 9 
? 8 
? 12 
? 10 
? 13 
? 8 

? 99^99 

CHI-QUADRO PER QUESTE 
OSSERVAZIONI = 2.2 
CON 5 GRADI DI LIBERTA-' 

CON LA CORREZIONE DI VATES, CHI 
QUADRO ? 1.35 

IL VALORE CRITICO AL 52 DI CHI 
QUADRO E" 11.871 

DI CONSEGUENZA L'IPOTESI NON VIENE 
RESPINTA AL VALORE CRITICO DEL 5Ji 


Problemi pratici 


1. Gli studenti di genetica di una classe fanno un esperimento per controllare 
la teoria classica di Mendelin. Questa teoria prevede che certe caratteristiche 
biologiche appaiono nelle speci sotto controllo con rapporti 9:3:3:1. Sui 1600 


156 



campioni a disposizione degli studenti, le caratteristiche appaiono 904,297 302 e 
97 volte rispettivamente. Sono compatibili questi valore con la teoria? 

Risposta: Il risultato del chi-quadro è 0,1511, quello del chi-quadro con 
correzione Yate è 0,1044. Il valore critico 5% per tre gradi di libertà è 7,8147, 
quindi il risultato è compatibile. Tuttavia, il valore critico 95% è 0,35185, sia con 
la correzione Yate che senza di essa, il risultato è quindi troppo buono e l’istrutto¬ 
re deve guardare all’esperimento con sospetto. 

2. A Las Vegas una particolare roulette dà il rosso più volte del nero. Su un 
campione di 1000 lanci, il rosso compare 546 volte ed il nero 454. La ruota è 
bilanciata 7 

Risposta: Il chi-quadro senza correzione di Yate è 8,464 con la correzione è 
8,281. Il valore critico 5% è 3,8415, l’ipotesi va quindi respinta. La roulette va 
rivista immediatamente. 


Llstlng del programma 


10 PRINT "CHI-QUADRO" 

100 PRINT "IL TOTALE DELLA FREQUENZA ATTESA E"" 

110 PRINT "COSTANTE <S/N>" 

120 INPUT A* 

130 IF At=“N" THEN 500 
135 IF A$<>"S“ THEN 100 

140 PRINT "INTRODUCI LA FREQUENZA ATTESA COSTANTE" 

150 INPUT V 

299 REM FREQUENZA ATTESA COSTANTE 

300 PRINT "INTRODUCI LE FREQUENZE OSSERVATE UNA AD" 

310 PRINT "UNA COME RICHIESTO IN SEGUITO" 

315 PRINT "INTRODUCI 99999 PER FINIRE" 

320 INPUT X 

330 IF '<-99999 THEN 1000 
350 N=N+1 

370 S=S+<ABS<X-V)12)A I 
390 T=T+((ABS<X-V)-.5>T2)/V 
400 IF A*="N" THEN 520 
410 GOTO 320 

499 REM FREQUENZA ATTESA VARIABILE 

500 PRINT "INTRODUCI COPPIA A COPPIA COME RICHIESTO LE" 
510 PRINT "FREQUENZE OSSERVATE, QUINDI QUELLE ATTESE" 
515 PRINT "INTRODUCI 99999,1 PER FINIRE" 

520 INPUT X,V 
530 GOTO 330 

1000 PRINT "CHI-QUADRO PER QUESTE" 

1010 PRINT "OSSERVAZIONI =";S 

1020 PRINT "CON"; N-l; "GRADI DI LIBERTA'" 

1030 PRINT "CON LA CORREZIONE DI VATES, CHI" 

1040 PRINT "QUADRO =";T 

1099 REM SEZIONE PER IL CALCOLO DEI VALORI CRITICI 

1100 IF N>101 THEN 1600 
1110 IF N=101 THEN 1500 
1120 IF N>31 THEN 1400 
1200 F0R 1=1 T0 N-l 
1210 READ C 
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1220 NEXT I 

1220 F0R I=N TO N+29 

1240 READ D 

1250 NEXT I 

1260 GOTO 2500 

1400 C= < H-1)* <1-2/< 9* < N-1>)+1.6449*SGR< 2/<9#<N-1> ))tS 

1410 D=(N-1)#< 1-2A94KN-1 >)-l.64494iSQR<2/<9*(N-l T3 

1420 GOTO 2500 

1500 C=124.342 

1510 0=77.9235 

1520 GOTO 2500 

1600 C=.5*(1.6449+SQRC 2* <N-1 ?-1> > > 12 
1610 D=.5*<SQR<2/<9*<N-1))-1.6449)T2 
2500 FRINT "IL VALORE CRITICO AL 52 HI CHI" 

2510 FRI NT "QUADRO E'";C 
2520 IF T2C THEN 2700 

2530 IF S2C THEN 2800 

£540 IF S<D THEN 2900 

2550 IF TCD THEN 2900 

2600 PRINT "DI CONSEGUENZA L'IPOTESI NON VIENE" 

2610 PRINT “RESPINTA AL VALORE CRITICO DEL 5X" 

2620 GOTO 9999 

2700 PRINT "DI CONSEGUENZA L'IPOTESI VIENE" 

2710 PRINT "RESPINTA AL VALORE CRITICO DEL 5X" 

2720 GOTO 9999 

2800 PRINT "MENTRE IL VALORE DI CHI-QUADRO NON CORRETTO" 

2810 PRINT "E' INACCETTABILE, QUELLI CON LA CORREZIONE DI VATES" 

2820 PRINT “NON LO SONO, DI CONSEGUENZA LA NUMEROSITÀ' DEL CAMPIONE" 
2830 PRINT “DOVREBBE ESSERE AUMENTATA 0 SI DOVREBBE SOSTITUIRE" 

2840 PRINT "I METODI DI DISTRIBUZIONE MULTINOMIALE" 

2860 GOTO 9999 

2900 PRINT "L'ACCORDO E ' TROPPO BUONO E DOVREBBE ESSERE" 

2910 PRINT "ESAMINATO CRITICAMENTE, POICHÉ' SIA" 

2920 PRINT "CON CHE SENZA CORREZIONE DI VATES, IL" 

2930 PRINT "VALORE DI CHI QUADRO E' INFERIORE AL VALORE" 

2940 PRINT "CRITICO AL 95X" 

5800 DATA 3.8415,5.9915,7.8147,9.4877,11.071,12.592 
5010 DATA 14.067,15.507,16.919,18.307,19.675,21.026 
5020 DATA 22.362,23.685,24.996,26.296,27.587,28.896 
5030 DATA 30.140,31.410,32.671,33.324,35.173,36.415 
5040 DATA 37.653,38.S85,40.113,41.337,42.557,43.773 
5050 DATA .003932,.10259,.35135,.71072,1.1455 
5060 DATA 1.635,2.167,2.733,3.325,3.940 
5070 DATA 4.575,5.226,5.392,6.571,7.261 
5080 DATA 7.962,8.672,9.390,10.117,10.851 
5090 DATA 11.591,12.338,13.091,13.348,14.611 
5180 DATA 15.379,16.151,16.928,17.708,18.493 
9999 END 


Bibliografia 


Hoel. Introduction to Mathematical Statistics, 2da ed. New York: John Wiley 
1954. 


Spiegel. Statistics (Schaum’s series). New York: McGraw-Hill, 1961. 


158 



DIVERGENZA DATI/PREVISIONE 


Il programma determina il grado di divergenza tra una previsione e i dati 
reali. Introducete appaiati i dati reali e quelli previsti, dopo l’ultima coppia 
introducete 99999,1. Il programma vi fornirà il numero di coppie, l’errore totale, il 
valore assoluto totale dell’errore, l’errore quadratico totale, l’errore medio, l’erro¬ 
re medio assoluto (M.A.E.), l’errore quadratico medio e la radice dell’errore 
quadratico medio. 


Esemplo 


Una previsione statistica determina i seguenti dati con le seguenti previsioni: 


Dati Previsioni 

1 1 

2 2,2 

3 2,9 

4 3,9 

5 5,3 

6 6.1 

7 7 

8 7,9 


Quale è l’errore statistico di queste figure? 


Risposta: 


DIVERGENZA DATI PREVISIONI 
INTRODUCI DATI E PREVISIONI 
:99999,1 PER FINIRE) 

' 1,1 
? 2 , 2.2 
? 3 , 2.9 
? 4 , 3.9 

'j e er q 


' 8 , 7.9 
? 99999 , 1 

NUMERO COPPIE DI FIGURE = 8 

ERRORE TOTALE =-.300000001 

ERRORE ASSOLUTO TOTALE = .899999999 

ERRORE QUADRATICO TOTALE = .17 

ERRORE MEDIO =-.0375000001 

ERRORE MEDIO ASSOLUTO = .1125 

ERRORE QUADRATICO MEDIO = .02125 

RADICE DELL' ERRORE QUADRATICO MEDIO = .145773797 


159 



Problemi pratici 


1. Qui sono riportate le previsioni ed i risultati di una elezione: 



Dati% 

Previsioni 

Candidato A 

40,3 

42,7 

Candidato B 

22,5 

21,4 

Candidato C 

16,3 

18,2 

Candidato D 

10,5 

6,0 

Candidato E 

7,2 

7,4 

Candidato F 

3,2 

4,3 


Quanto erano accurate le previsioni? 


Risposta: Numero di coppie = 6, Errore totale = 0, errore totale assoluto = 
11,2, errore quadratico totale 32,08, errore medio = 0, errore medio assoluto = 
1,866667, errore quadratico medio = 5,346667, Radice dell’errore quadratico 
medio = 2,312286. 

2. Un nuovo metereologo TV presta per una settimana nella stazione, le 
temperature previste e quelle reali nella settimana sono le seguenti: 



Temperatura 

Temperatura 


reale 

prevista 

Lunedi 

74 

49 

Martedì 

70 

62 

Mercoledì 

58 

75 

Giovedì 

60 

82 

Venerdì 

65 

37 

Sabato 

73 

58 

Domenica 

70 

92 


Quali sono gli errori statistici dei dati trasmessi? 

Risposta: Numero di coppie = 7, errore totale = 15, errore assoluto totale = 
137, errore quadratico totale = 2955, errore medio = 2,14285714, errore medio 
assoluto = 19,5714286, errore quadratico medio = 422,142858, radice errore 
quadratico medio = 20,5461154. 


Llstlng del programma 


10 PRINT "DIVERGENZfi IATI PREVISIONI" 
20 PRINT "INTRODUCI URTI E PREVISIONI" 
30 PRINT “<39999,1 PER FINIRE'" 

40 IMPUTO,V 

50 IF X=99999 THEH 118 
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SO T1=T 2 + 1 
70 T2=T2+xW 
SO T3=T3+ABS<X-Y> 

30 T4=T4«-<ABS(X-Y>> 12 
180 GOTO 40 

210 PRINT "NUMERO COPFIE SI SICURE =";T1 

120 FRIUT "ERRORE TOTALE =”;T2 

130 FRINT "ERRORE ASSOLUTO TOTALE =",73 

140 PRINT "ERRORE QUADRATICO TOTALE =";T4 

150 PRINT "ERRORE MEDIO =";T2.'T1 

ISO FRINT "ERRORE MEDIO ASSOLUTO =";T3/T1 

170 PRINT "ERRORE QUADRATICO MEDIO =“;T4. Ti 

130 PRINT "RADICE DELL ERRORE QUADRATICO MEDIO =" ; 3QR :T4.'Tl : 

138 END 
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INTERPOLAZIONE NEWTONIANA 


Questo programma applica la formula della differenza diretta di Newton per 
Pinterpolazione di una data funzione. La formula di Newton è destinata a 
lavorare nel caso in cui gli argomenti che usate nell’interpolazione comincino ad 
essere al disotto degli argomenti per i quali voi avete tracciato una tabella di 
valori. 

Introducete per prime le variabili indipendenti, con a lato i valori per cui 
volete calcolare Pinterpolazione, in seguito introducete i valori desiderati delle 
variabili indipendenti. Quindi, il programma, vi chiede che precisione (in decima¬ 
li) desiderate nella risposta. La precisione desiderata non deve superare l’accura¬ 
tezza dei dati originali, come pure non può superare l’accuratezza del vosto 
BASIC. Il programma pone fine al calcolo quando cade al disotto di questo livello 
di accuratezza. 

Introducete poi i valori tabulati immediatamente prima e dopo il valore 
desiderato. Il programma scrive la differenza fra questi valori, questa è detta 
prima differenza. Quindi chiede i valori addizionali tabulati, e mostra le nuove 
differenze ogni volta, ciò fino a quando la nuova differenza cade sotto il livello di 
precisione desiderato. Per terminare gli ingressi dei valori tabulati, introducete 
99999 come nuovo valore tabulato, a questo punto il programma completerà la 
computazione della risposta. 


Esempio 

Bill Miller fa un prestito a 5 anni al 4‘/ 4 %. Egli ha un tabulato che mostra i 
fattori per cui va moltiplicato il capitale imprestato, al fine di ottenere i pagamenti 
mensili. La tabella mostra solo scatti dello 0,5%. Bill come dovrà eseguire il 
programma per determinare il fattore del 4‘/4%? 


Quota interesse 

Fattore 

4% 

0,018416522 

4'/ 2 % 

0,018643019 

5% 

0,018871233 

5'/ 2 % 

0,019101162 

6% 

0,019332801 

6'/ 2 % 

0,019566148 

7% 

0,019801198 

7'/ 2 

0,020037949 

8% 

0,020276394 
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Risposta: 

INTERFCLAZIOUE 

formula ri differenza diretta di newtcn 

VARIABILE INDIPENDENTE PIU' SflSSfi? ,C4 
VARIABILE INDIPENDENTE FILI ALTA? .245 
VARIABILE INDIPENDENTE ATTESA? .0425 
-RECISIONE IN FOSTI DECIMALI'? 3 

INTRODUCI IL VALORE TABULATO 3 .04 

' .313415522 

INTRODUCI IL VALORE TABULATO fi .345 
.013643013 

1 MA TA DIFFERENZA = 2.254553353-04 

INTRODUCI IL VALORE TABULATO A .05 

' .318871233 

2 DA TA DIFFERENZA = 1.717-0023:E-OC 

INTRODUCI IL VALORE TABULATO fi .033 

? .313131162 

3 ZA TA DIFFERENZA = -I.3336123CE-03 

L" INTERPOLAZIONE E' DELL' ORDINE DI 

3 ZA TA DIFFERENZA RISPOSTA = .3135225538 


Problemi pratici 

1. Jeanne vuol sapere il seno di 0,63 utilizzando la seguente tabella. Quanto 
varrà tale seno? 


X 

0,6 

0.7 

0,8 

0,9 

1,0 

Sin X 

0,564642 

0,644218 

0,717356 

0,783327 

0,841471 


Risposta: Il seno di 0,63 è circa 0,589191 

2. Da una statistica Joe vuol determinare l’area sotto una curva normale con lo 
0,095 di deviazione standard a destra della media. Con la seguente tabella quanto 
risulterà l’area? 


Deviazione Std. 

0,08 

0,09 

0,1 

0,11 

0,12 

Area 

0,53188 

0,53586 

0,53983 

0,54380 

0,54776 


Risposta: L’area è 0,53784. 
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Llsting del programma 


IO 

PRINT 

"INTERFCI 

20 

FRI NT 

"FORMULA 

30 

PRINT 

"VfiRIfiEI 

40 

INPUT 

a<i> 

33 

PRINT 

“VfiRIfiEI 

SO 

INPUT 

a<2> 

70 

PRINT 

"VARIPEI 

30 

INPUT 

N 

90 



■ : i - :, 


LE INDIPENDENTE FI IT F4.T.- 
LE INI:PENDENTE flTTEDR" : 


100 PRINT "FREGIO-IONE UN POSTI DECIMALI: 

110 INPUT E 

ILO IF E=0 THEN 140 

130 E=1."18TE> 

140 :=: 

ISO PRINT 
ISO GOoUE 41'0 
ITO 1=2 
ISO 308UB 470 

190 Ir S<1,J>=9S5S? THEN 300 
EOO POR 1=2 TO J 

210 b<i, 2 ->i)=e 1 * 2 : 

220 NEMT I 
230 PRINT 
240 PRINT 

259 GOSUB 500 

260 PRINT "DIFFEREN38 = 

278 IF BCvMJCE THEN 200 
288 J=J*1 

290 IF ,T2=9 THEN 180 
300 2=0 
318 Pl=l 
320 >1=1 

238 FOR 1=1 TO S 
343 >i=N*I 
358 P1=P1*(P-H-1' 

260 2=2 *P1*B< 1+1,1 VÌI 
770 NENT I 

280 IF ,=K2M"fia> THEN 410 

:-b<i,:>-2 

GOTO 420 


' » _ 


390 
430 
418 

420 PRINT 11 ITERPCLfiZIONE E DELL" ORDINE DI 

438 PRINT J-i; 

—SC*. - 11eg0 

PRINT "DIFFERENZA RISPC3TR = 


S0 3CT0 590 
29 REM SCTTCPROORfWlfi PER INTRODURRE 


120 


_ aj 

593 


PRINT 

” IN7R0 

INPUT 

B< 1/ 

.RETURN 

T 17 * 

2 THEN 

or. tut 
r K x 111 

"MO 

IF 7 7.Z 

3 THEN 

PRINT 

"IF, 

:f 

4 THEN 

PRINT 

"Tr! " • 

IF 77 

THEN 

PRINT 

RETUR» 

"Tiì 


VALORE TABULAI 


'.'PLORI TABULATI 
n " . n " 1 / . 3'14 




520 

540 

560 

100 
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INTERPOLAZIONE LAGRANGIANA 


Questo programma utilizza la formula di Lagrange per interpolare una data 
funzione. Per ogni successivo valore tabulato da voi introdotto, il programma 
mostra la corrispondente differenza, voi potrete calcolare il valore interpolato 
oppure procedere con il successivo ordine di differenze. Se volete continuare, 
avrete più opzioni ad ogni ordine successivo di differenze, cioè, potrete tornare 
indietro e calcolare il valore interpolato sul precedente ordine di differenza. Ciò 
effettivamente permette senza compromettere il risultato, di vedere se il successi¬ 
vo ordine di differenze è minore di quello presente. Quindi con questo programma 
non dovete scegliere l’ordine di differenza in anticipo. 

Il programma permette da tre a dieci punti di interpolazione Langrangiana. 

Per prima cosa introducete l’argomento centrale, esso è l’argomento imme¬ 
diatamente sotto a quello da voi cercato. Vi è anche richiesto l’argomento 
superiore successivo della vostra tabella ed il vostro argomento desiderato. Dove¬ 
te introdurre il valore dell’argomento centrale e quello degli argomenti a lato 
dell’argomento centrale. Il programma chiama questi valori fo, fi, f-i. A questo 
punto il programma fornisce la prima e la seconda differnza. Voi avrete l’opzione 
di fermarvi qui, con tre punti di interpolazione o passare ad un più alto ordine di 
differenze. Se volete proseguire introducete uno alla volta i valori tabulati f 2 , f- 2 , fj, 
f-j, ecc. Ad ogni ingresso il programma fornisce la successiva differenza. Potete 
decidere se fermarvi e fare l’interpolazione su quella differenza oppure tornare 
indietro ed interpolare su una precedente differenza, oppure potete decidere di 
continuare introducendo un altro valore tabulato. Potete procedere fino alla nona 
differenza, poiché, il programma calcola al più dieci punti di interpolazione. 


Note al programma 

Il programma impiega l’algoritmo dato da Pearson per semplificare i coeffi¬ 
cienti lagrangiani, ciò, esclude il bisogno di tavole per i coefficienti. Il programma 
trascura i termini restanti della formula di Lagrange. Infine, non dà due punti di 
interpolazione, poiché, sono poco usati. 


Esemplo 

Utilizzando la tabella che segue determinare il seno di 1,0006 radianti: 
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Angolo X 

Valori Tabulati 

Nome del 

in radianti 

Sin X 

valore tabulato 

0,996 

0,83930 

30496 

f-4 

0,997 

0,83984 

62937 

f-3 

0,998 

0,84038 

86980 

f-2 

0,999 

0,84093 

02619 

f-1 

1,000 

0,84147 

09848 

fo 

1,001 

0,84201 

08663 

fi 

1,002 

0,84254 

99058 

f2 

1,003 

0,84308 

'81027 

f3 

1,004 

0,84362 

54565 

f4 

1,005 

0,84416 

19667 

f5 


Risposta: 0,841795015. 


INTERPOLAZIONE LAGRANCIANA 

INTRODUCI L' ' ARGOMENTO CENTRALE, IL CUOCESSIVC 
ARGOMENTO SUPERIORE- E L' ARGOMENTO DESIDERATO 
? 1 , 1.301 . 2.0000 
INTRODUCI F<e> 

0 .341470935 
INTRODUCI F<1) 

? .342010067 
INTRODUCI FC-1> 

? .340030262 

DIFFERENZA #1 = 5.39882109E-04 

DIFFERENZA #2 = 3.4G51S624E-07 

VUOI LA FROSSIMA DIFFERENZA ? 13. 'N> 

INTRODUCI F< 2 7 
? .042549905 

DIFFERENZA # 3 = 3.25962901E-O9 
DESIDERI ALTRE DIFFERENZE? ' 

SI<3), NO<N), UNA IN MENOCM.’ 1 
c. 

INTRODUCI F<- 2 ) 

? .043309690 

DIFFERENZA # 4 = 2.32S30644E-09 
DESIDERI ALTRE DIFFERENZE? 

SI<S>, NO(N>, UNA IN MEN0<M> 

INTRODUCI F< 3 > 

? .343000103 

DIFFERENZA # 5 = 2.32830644E-09 
DESIDERI ALTRE DIFFERENZE? 

3I<S>, NO<N>, UNA IH MENOCM.' 1 
? N 

LANGRAHGIANA 6 -PUNTO DI INTERPOLAZIONE 
PRODUCE UN VALORE DI .941795025 


Problemi pratici 


1. Quale è il seno di 1,0001 radianti? 
Risposta: 0,841525014. 
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2. La mantissa di un logaritmo comune, per sei argomenti diversi, è riportata 
qui sotto: 


Argomento 


Mantissa 


6,1242 

0,787 

0493 

652 

6,1243 

0,787 

0564 

565 

6,1244 

0,787 

0635 

478 

6,1245 

0,787 

0706 

390 

6,1246 

0,787 

0777 

300 

6,1247 

0,787 

0848 

209 


Quale sarà la mantissa del logaritmo comune di 6,12449? 


Risposta: 0,78706993 


Llstlng del programma 

5 PRIHT "INTERPOLAZIONE LAGRANGIANA" 

10 DIIflKIO, 10),£< 10>,F<13, 10>,N<4>.O<:0> 

15 G<1)=1 
20 F< 1,1.1=1 

29 REMCLOSEMOSTRA Lfi TABELLA BEI VALORI INIZIALI 

30 FOR 1=2 TO 10 

40 F<I,l)=SGN<I/2-INT<I/2>-.i) 

50 FOR .1=2 T0 I 

50 Fa, j>=<ABS<F<!-i,j-i)>+ABS<Fa-i. ;)>>*2 Gi:<:nt<< io.•a.'-ti 

70 NEXT J 

SO 0<I)=G<I-l)#<I-i> 

90 NEXT I 

100 PRIHT "INTRODUCI L' ARGOMENTO CENTRALE, IL CUOCESSI'.'0" 

110 PRINT "ARGOMENTO SUPERIORE. E L' ARGOMENTO DESIDERATO" 

120 INPUT X1,X2,X3 
130 P=<X3-X1 ).'(X2-X1 ) 

140 IF P<=0 THEN 1O0 
150 IF P>=1 THEN 100 
150 PRINT "INTRODUCI FIO)" 

170 INPUT B'11,1) 

1S0 PRIHT "INTRODUCI Fili" 

190 INPUT D<2,1) 

200 PRINT "INTRODUCI FI-D" 

210 INPUT DI3,1) 

220 Da,2.i=ABSa><2,l>-D<!,i)> 

230 PRINT "DIFFERENZA #1 = ":D<1.2.' 

24C D<2,2>=AB3ID<3,1>-B<1,1.'> 

250 DC1,3)=ABS<D<2 2i-Ba,^>> 

250 PRINT "DIFFERENZA #2 = ".Da 0) 

269 REM DA ALL' OPERATORE L' OPPORTUNITÀ' DI FERMARCI CUI 0 DI CONTIMURRE 

270 PRINT "VUOI LA PROSSIMA DIFFERENZA ’ '3/M.l" 

2S0 INPUT Vf 

290 1=3 

300 IF Vf=“N" THEN 570 
310 IF VtC'S" THEN 270 
020 1=1+1 

329 REM INTRODUCI IL QUARTO 5 I SEGUENTI VALORI TABULATI 

330 PRINT "INTRODUCI FI"; 

040 IF I=INTII.'2>*2 THEN 353 
050 PRIHT 

060 PRINT INTII/2',' 
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370 

INPUT 

D<I.l) 

030 

FOR !■ 

=1 TO 1-2 

390 

B<I-J 

, .T+!>=ABS1D<I->1.. J>-D<I-J-1. :» 

400 

NEJIT 

T 

J 

-10 

D< 1 .• I 

>=ABS<B<1, I-1.'-D<2j I-l.'> 

420 

PRINT 

“DIFFERENZA I-l; 

425 

IF I=: 

10 THEN 519 

430 

PRINT 

"DESIDERI ALTRE DIFFERENZE?" 

440 

PRINT 

"SI6S>, NO<N>, UNA IN MENO'MV 

450 

INPUT 

V» 


450 REM L'UTENTE PUD' FERMARSI QUI. CONTINUARE 

450 REM 0 RITORNARE AD UNA DIFFERENZA IN MENO 

460 !F VS="N" THEH 570 

470 IF VS=“S“ THEN 320 

40O IF V*C "M" THEH 430 

.« T = I — i 

500 GOTO 570 

509 REM NON SONO POSSIBILI PIU' DI NOVE DIFFERENZE 

510 PRINT "VUOI LA NONA DIFFERENZA 'N>, C* 

520 PRINT "SOLO LA OTTAVA '0>" 

530 INPUT Vf 
540 IF YT="N" THEN 570 
550 IF V#O"0" THEN 510 
56.0 1=1-1 

56S REM LE LINEE DA 570 A 630 INIZIALIZZANO LE VARIABILI USATE 

569 REM NELL'ALGORITMO DI FEAR30N 

570 N <1> =P t3-P 

530 N<2>=N<l>*<P1£-4> 

590 N(3)=lK2)*<PT2-9) 

600 N(4>=1K3>#(FI2-16> 

610 FOR 7=1 TO 10 

320 E<J> =B<ABS<11-6J*2>>f-SON'INT<J/6)>, 1 .V?*5- J> 

630 NEJ'T J 
640 FOR T=1 TO I 

650 T=T«-EIINT<<10-I.V2>+J>*F<I.. :> 

660 NEJ'T .* 

670 IF I 'MNTII.'2>#2 THEN 690 
630 t=T j #<P-I.'2J 

690 PRINT "LANGRANGIANA"; I;"-PUNTO DI INTERPOLAZIONE" 

700 PRINT "PRODUCE UN VALORE DI". T*N<INT<<1 -1V2IJ.'C11: 

'10 END 


Bibliografia 

National Bureau ofStandards. Handbook ofMathenaticalFunctions. Washington 
D.C., 1966. 

Scheid. Numerical Analysis. (schaum’s serie). New York: McGraw Hill, 1968. 

Vega. Vollstàndige Sammlung grosserer logarithmisch-trigonometrischer Tafeln. 
1749. Reprint. New York: Hafner, 1958. 
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SOMMA DI POTENZE 


Questo programma calcola la somma dell’ennesima potenza (fino alla deci¬ 
ma potenza) dei primi N interi. Calcola anche la somma di potenze di una serie di 
interi maggiori dei primi N. Per esempio, se si vuole la somma dei quadrati dei 
numeri da 101 a 1000, il programma sottrae il totale dei primi 100 quadrati dal 
totale dei primi 1000. 


Note al programma 

Esiste un semplice algoritmo per calcolare la somma di potenza: un loop che 
provvede ad aggiungere le successive potenze ottenute. Quando volete la somma 
di una grossa serie di interi, il metodo di questo programma non è molto efficacie. 


Esemplo 


Quale è la somma delle prime dieci potenze alla settima? 


Risposta: 18080425. 


SOMMA DI POTENZE 

QUESTO PROGRAMMA CALCOLA LA SOMMA DELLE POTENZE ENNESIME 
(LIMITE 10> PER I PRIMI NUMERI INTERI. INTRODUCI P E N 
? 7 , 10 

LA SOMMA DELLE ? -ME POTENZE DEI 
PRIMI IO INTERI E' 13080425 


Problemi pratici 

1. Quale è la somma delle prime 100 potenze alla quinta? 
Risposta: 1.717083325,10" 

2. Quale è la somma delle prime sei potenze alla decima? 
Risposta: 71340451. 
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3. Quale è la somma dei quadrati dei numeri compresi fra 101 e 1000? 
Risposta: 333498500. 


Llstlng del programma 

5. -PI?!? "SOMMA DI POTENZE” 

13 PRIMI "QUESTO PROGRAMMA CALCOLA LA SOMMA DELLE POTENZE ENNESIME” 
20 PRINT "CLIMITE 10> PER I PRIMI NUMERI INTERI. INTRODUCI F E N" 
30 INPUT P,M 

32 °=INT CP> 

54 IF PCI THEN 10 
36 IF PM0 THEN 10 

33 REM SEZIONE PER LE POTENZE 

40 OH P GOTO 50,70,50,110,130.. 150,180.ZIO,240,ZZO 
50 S=N#<N+1>/2 

55 PRINT "LA SOMMA DELLE PRIME POTENZE DI" 

SO GOTO 580 

70 S=N*<N+l. s *<2*N+l>/6 

75 PRINT "LA SOMMA DELLE SECONDE POTENZE DI"30 S«<N12>*<<N*1>12>.'4 
30 GOTO 380 

35 PRINT "LA SOMMA DELLE TERZE POTENZE DI" 

100 GOTO 380 

110 S«N*<N+1>*<2*N+1>#<3*Nt2+3*N-l>/30 
120 GOTO 370 

130 S=<H12>*<<N*1 > 12>*<l*Nt2+2#N-l>,'12 
140 GOTO 370 

150 SI=<2*N+1>*< 3#N t4+6*N t3-3#N+1> 

ISO S=N#<N+l)*Sl/42 
170 GOTO 378 

130 31=3*NT4+6*NT3-H T2-4*N+2 
130 S=<Nt2>*<(N+l)T2>#Sl/24 
200 GOTO 370 

210 S1=5*N t€+15#N15+5*NT4-15#Nt3-N42+3#N-3 
220 S=N*<N+1>*<2*N+1)*Sl/30 
230 GOTO 370 

240 Sl=2*Nf6+6*N't5+HT4-8*NT3+Nt2+6*N-3 
250 S»<Nt2>*<CN+1 > 12>#Sl/20 
260 GOTO 370 

270 S2*3#NT8+12*NT7+8*Nt6-13*N T5 
230 S1=S2-10*N T4+24*NT3+2#NT£-15#N+5 
230 S=N#<N+1 >*<2#N+ 1>*S1 .‘66 
300 GOTO 370 

370 PRINT "LA SOMMA DELLE ";P;"-ME POTENZE DEI" 

380 PRINT "PRIMI",N;"INTERI E' “;S 
330 END 


Bibliografia 

Chemical Rubber Co. Handbook of tables for Mathematicians, 4ta ed. Cleveland: 
1970. 
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FATTORIALI 


Questo programma calcola il fattoriale di un intero. Per il fattoriale di un 
piccolo intero N, noi moltiplichiamo ripetutamente l’intero per i numeri da 1 a N. 
Per un numero grande ciò è poco pratico ed allora facciamo uso della approssima¬ 
zione di Stirling: 

Ni = e ’ N N N V 2 N v 


Questa approssimazione è molto curata per alti valori di N. 


Note al programma 

Alcuni computer hanno un punto di overflow relativamente basso. Se il 
vostro computer rientra in questa categoria, dovete modificare questo program¬ 
ma. Il programma calcola i fattoriali di numeri interi fino a 69 (il cui fattoriale 
supera IO 100 ), usando l’approssimazione di Stirling ed una tecnica per rendere 
minore l’overflow. Potrete ridurre l’overflow slittando la virgola nella linea 50. 

Il programma computa l’approssimazione di Stirling incrementale. Se un 
intervallo supera IO 20 o IO 30 , il programma lo divide per IO 20 o per IO 30 (sceglie il 
più approppriato fra i due). Per compensare mostra un moltiplicatore aggregato 
(in parole) come parte della risposta. Potete ridurre il cambiamento d’overflow 
usando IO 50 al posto di IO 30 (questo se l’hardwar lo permette). Per effettuare 
questo cambiamento, sostituite il “30” nelle linee 190, 220 e 230 con “50”. 

I calcoli di intervallo sono incrementi esponenziali di cinque parti. Ciò è fatto 
per permettere l’overflow veloce. Potete cambiare il “5” nelle linee 150, 160, 170, 
180 e 280 con “4” o con un numero minore, ciò, porta naturalmente, a rallentare il 
programma. Notate che per un dato computer c’è un limite teorico al disotto del 
quale l’overflow non può avvenire. 


Esemplo 

Quant’è 8!? 
Risposta: 40320 
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FATTORIALI 

INTRODUCI IL NUMERO DI CUI VUOI IL FATTORIRLE 

? 8 

IL FATTORIALE DI 8 E' 

40320 

IO VOLTE fìLLfì POTENZA DI 0 
CALCOLATA RICORSIVAMENTE 


READV. 


Problemi pratici 

1. Quant’è 100!? 

Risposta: 9,3248. IO 157 

2. Qual’è il fattoriale di 20? 
Risposta: 2,43290201. IO 18 

3. Quanto vale 141!? 
Risposta: 1,897. IO 243 


Llstlng del programma 


5 PRINT "FATTORIALI" 

10 PRINT "INTRODUCI IL NUMERO DI CUI VUOI IL FATTORIALE" 
20 INPUT N 
30 F=1 

50 IF N>69 THEN 150 

59 REM CALCOLA USANDO L' ALGORITMO RICORSIVO 

60 FOR 1=2 TO N 
70 F=F4I 

80 IF E-C1E+10 THEN 120 
100 F=F/(1E+10) 

HO J=J+10 
120 NEXT I 
130 GOTO 300 

149 REM CALCOLA USANDO L' APPROSSIMAZIONE DI STIRILING 

150 K=INT<N/5) 

180 1=1+5 

170 IF I>K*5 THEN 230 
130 F=<F*N15>.'EXP<5> 

190 IF FME+30 THEN 220 
200 IF F.ME+20 THEN 250 
210 GOTO 160 
220 F=F.'< 1E+30) 

230 J=J+30 
240 GOTO 190 
250 F=F/< I+20> 

260 J=J+20 
270 GOTO 190 
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280 F=<F*Nt< H-K*5> >/EXP<N-K#5>*SGR<N#6.2831S53071S) 

300 FRI NT "IL FATTORIALE DI ";N.:“E' “ 

310 PRINT F. 

320 PRINT "10 VOLTE ALLA POTENZA DI";J 

330 IF K>0 THEH 360 

340 PRINT ”CALCOLATA RICORSIVAMENTE" 

350 GOTO 370 . ... 

360 PRINT "CALCOLATA CON L' APPROSSIMAZIONE DI STIRLING 
370 END 


Bibliografia 


Korn & Korn. Mathematical Handbook, 2da ed. New York: McGraw-Hill, 1968. 


National Bureau of Standards. Handbook of Mathematica!Functions Washington, 
D.C., 1966. 
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CONVERSIONE DI TEMPERATURE 


I chimici, i fisici ed altri scienziati sono continuamente costretti a convertire 
le temperature da una scala ad un’altra. Le temperature vengono registrate ed 
utilizzate in cinque diverse scale: Fahrenheit, Celsius (detta anche centigrada), 
Reaumur, Kelvin e Rankine. Questo programma, prende una temperatura (sopra 
lo zero assoluto) registrata in una scala e fornisce i suoi valori nelle altre quattro 
scale. 


Esemplo 


Convertite 98,6° Fahrenheit nelle altre scale. 


CONVERSIONE l'I TEMPERATURE 
GOAL ' E ' LA TEMPERATURA CHE 
VUOI CONVERTIRE? 

? ?e. 5 

US EVALE CCSLA E' STATA REGISTRATA? 
INTRODUCI : RER FAHRENHEIT, E PER 
CELSIUS. S PER RE AULIR. 4 PER 
KELVIN. 5 PER RANKINE 

’CC.Ó GRADI FAHRENHEIT* 

S7 CRADI ~EL C I' 'S 

2?.S GRADI REAMUR 

318.15 CRAEI KELVIN 

558.18 GRADI RANKINE 


Problemi pratici 

1. Il punto di ebollizione dell’acqua è 100° Celsius. Quanto è nelle altre scale? 
Risposta: 212° Fahrenheit, 80° Reaumur, 373,1° Kelvin, 671,58° Rankine. 

2. Lonna porta un tubo alla temperatura di 104° Fahrenheit. A che tempera¬ 
tura sarà il tubo nelle altre scale? 

Risposta: 40° Celsius, 32° Reaumur, 313,1° Kelvin, 563,58° Rankine 


177 



Listlng del programma 

«. DOT HI "CONVERSIONE DI TEMPERATURE " 

>0 PRIMI "QUALE' LA TEMPERATURA CHE" 

S-à prinT “VUOI CONVERTIRE?" 

3Ó INPUT T 

ari ORI*,'! "IN QUALE SCALA E ' STATA REGISTRATA?" 

50 PRIMI "INTRODUCI I PER FAHRENHEIT, 2 PER" 

59 FRINÌ "CELSIUS, 3 PER REAMUR, 4 PER" 

-0 PRINT "KELVIN, 5 PER RANKINE" 

90 INPUT S 
S=INT(S> 

10O IF SCI THEN 4? 

110 IF 335 THEN 40 

11? REM SEZIONE RISERVATA AL TIFO DI SCALA 
120 OH S GOTO ISO,170,210 250,200 
ISO IF TC-459.58 THEN 420 
140 T!=T 

150 PRINT T,"GRADI FAHRENHEIT 3 “ 

ISO GOTO 040 

170 IF TC-270.1 THEN 420 

1S0 TI=02+1*1.3 

130 PRINT T,"GRADI CELSIUS 3 " 

200 GOTO S20 

210 IF TC-21S.48 THEN 420 

220 Tl=32+T*2.25 

230 PRINT T,"GRADI REAMUR 3 " 

240 GOTO 020 

250 IF TC0 THEN 420 

250 T1=32+1.8$< T-270.10 

270 PRINT T,"GRADI KELVIN 3 " 

230 GOTO 020 

290 IF TC0 THEN 420 

300 Tl=T-459. 58 

310 PRINT T,"GRADI RANKINE 3 " 

320 PRINT Tl,"GRADI FAHRENHEIT" 

330 IF 8=2 THEN 360 

040 PRINT 5*<Tl-32>/9,"GRADI CELSIUS" 

350 IF 3=3 THEN 330 

360 PRINT 4#(T1-32.V9, "GRADI REAMUR" 

370 IF 3=4 THEN 400 

3-30 PRINT 5#<Tl-32>,'9+273.1, "GRADI KELVIN” 

390 IF 3=5 THEN 450 

400 PRINT Tl+459.58,"GRADI RANKINE” 

410 GOTO 450 

420 PRINT "LA TEMPERATURA INTRODOTTA NON ESISTE" 
430 PRINT "INTRODUCETENE UNA NUOVA, PREGO" 

440 GOTO 10 
450 END 


Bibliografia 


Lange. Lange’s Handbook of Chemistry, lOma ed. New York: McGraw-Hill, 1967. 
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CONVERSIONE DELLA BASE NUMERICA 


Questo programma converte i numeri fra due basi comprese tra 2 e 36. Il 
programma continua a convertire i valori alla stessa base fino a che non introdu¬ 
cete un valore zero da convertire. A questo punto potete introdurre una nuova 
base di conversione, ed il programma convertirà le vostre entrate a questa nuova 
base. Se introducete zero come base, dovrete introdurre una nuova base per 
convertire ulteriormente. Introducete zero per terminare il programma. 

Note al programma 

Potete effettuare conversioni anche con basi maggiori di 36, in tal caso 
dovrete definire i caratteri che rappresentano i valori maggiori di 35. Per far ciò, 
aggiungete il carattere (i caratteri) dopo la “Z” sulla linea 30. Per esempio, per 
convertire alla base 37, rappresentate il numero 36 con il carattere. Sostituite la 
linea 30. in modo che essa si legga: 

30 N$ = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ #" 

I segni, i punti decimali e gli altri caratteri che introducete come parte del 
valore che dovrete convertire, non devono includere i caratteri rappresentati per 
la FROM della base che avete scelto. Essi vengono interpretati, dal programma, 
come zeri quando appaiono. 

Notate che, poiché, il valore che introducete è prima convertito al valore di 
base 10, valore che viene immagazzinato nella variabile numerica D, l’accuratezza 
del valore in uscita è limitata dall’accuratezza del vostro computer. Questo si 
verifica anche a causa delle ripetute divisioni utilizzate nel processo di conversio¬ 
ne. 

Usando questo programma sul vostro calcolatore potreste avere dei proble¬ 
mi, in quanto esso utilizza una serie di variabili. Nell’appendice del libro, troverete 
delle informazioni relative ai cambiamenti che si possono effettuare su program¬ 
mi che utilizzano serie di variabili. 

Esemplo 

Quale è la base 10 del numero ABCD in base 16? Quale è il valore dello stesso 
numero in base 8? Quale è la base 36 equivalente al numero 825062 in base 10? 


179 



Risposta: ABCD in base 16 è 43981 in base 10. In base 8 è 125715. 825062 in 
base 10 è HOME in base 36. 

CONVERSIONE DELLA BASE NUMERICA 

DALLA BASE <0 PER FINIRE)? 16 
IN BASE? 10 
"ALARE'' ABCD 

ABCD IN BASE 16 E' 43981 IN BASE 10 
VALORE? 0 
IN BASE'' S 
VALORE? ABCD 

ABCD IN BASE 16 E' 125715 IN BASE 8 
VALORE? 0 
'N BASE" 0 

BALLA EASE <8 PER FINIRE)? 10 
IN BASE" 36 
VALORE? 325062 

325062 IN BASE 10 E' HOME IH BASE 36 
VALORE? 0 
IH BASE"' 0 

BAU R BASE <8 PER FINIRE)? 0 


Problemi pratici 

1. Quale è la rappresentazione in base 16 del numero 45 in base 10? Quale è la 
rappresentazione dello stesso numero in base 8? 

Risposta: 45 in base 10 è 2D in base 16. 45 in base 10 è 55 in base 8. 

2. Quale è la rappresentazione in base 36 del numero 1G6 in base 18? Quale è 
la sua rappresentazione in base 10? 

Risposta: 1G6 in base 18 è JA in base 36. 1G6 in base 18 è 618 in base 10. 


Llsting del programma 


10 PRIHT “CONVERSIONE DELLA BASE NUMERICA" 

20 FRINT 

?8 N$="01234567S9ABCDEFGHIJKLMNOPQRSTUVWXYZ" 

ir VflRIOBILE E' LA BASE PIU' ALTA DA CUI POTERE CONVERTIRE DA A 

50 M=LEN(N#) 

SO PRIHT "DALLA BASE <0 PER FINIRE)"; 

T’O INPUT E1 

SO REM — FINE PROGRAMMA ? 

30 IF B1=0 THEN 450 

100 REM — TEST SULLA VALIDITÀ' DELLA BASE INTRODOTTA 
110 IF BICI THEN 148 

120 PRIHT "LA BASE SUPERA";M;"SELEZIONA ANCORA” 

130 GOTO 60 
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140 IF BU M THEN 120 
150 PRINT "!H BASE"; 

!S0 IMF" 'T B2 

170 IF §2=6 THEN 60 

130 REM - TEST PER LA VALIDITÀ' DELLA BASE DI USCITA 
130 IF B2M THEN 220 

200 PRIMT “LA BASE SUPERA":M;“SELEZIONA ANCORA" 

210 OOTO 150 

220 IF 323 M THEN 200 

230 PRIMT "VALORE": 

249 INPUT Vt 

250 IF Vf="0" THEN 150 

260 REM PRIMA, CONVERTI IL VALORE ENTRATO ALLA BASE 10 
270 L=LEN<V*> 

230 3=0 

230 FOR 1=1 7Q L 
?00 FOR T-J TO B1 

210 IF MIDT'NT, J,!:OMID»<Vt, 1 ,1> THEN 330 
'320 D=D+INT<(J-l>*<Blt<L-I>3+.5) 

330 ’NEXT J 
340 NEXT I 

350 REM — ORA CONVETI IL VALORE IN BASE 10 IN BASE DESIDERATA 
360 0»="" 

370 ;:= I NT (. < < D/B2 >- HIT <D,'B2»*B2«-1.5> 

330 0$=MID*<N*,X,1> + 0* 

330 D=IHT <D.'B2) 

40O IF D>0 THEN 370 

410 REM — MOSTRA I RISULTATI 

420 PRINT V*;" IN EASE";Bl:"E' IN BASE“,B2 

430 REM — LOOP INDIETRO PER INTRODURRE UN ALTRO VALORE 
440 OOTO 230 
450 END 
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TRASPOSIZIONE MUSICALE 


In musica, la trasposizione è l’arte di suonare una musica con una chiave 
differente da quella in cui è stata scritta. Alcuni musicisti riescono a trasporre col 
canto o ad orecchio, altri devono convertire ogni nota da una chiave all’altra. 
Questo programma è destinato a questi ultimi. La trasposizione della nota fatta 
con questo programma può esere usata come base armonica per piano, chitarra 
ecc., e molto semplice e può essere usata anche per note singole. 

Come prima cosa il programma mostra tutte le chiavi ed i segni delle chiavi, 
compresi sette bemolle e sette diesis, e fornisce i numeri di identificazione. 
Introducete il numero della chiave che aveva e quello della chiave in cui volete la 
trasposizione. Il programma mostra ognuna delle 12 note possibili con la loro 
trasposizione equivalente. 

Va notato che il programma in ogni caso vi fornisce il corretto tono della 
nota trasposta ed il suo nome corretto. 


Esempio 


Come diventano le note della chiave B°quando le trasportate in chiave G? 


Risposta: 

TRASPOSIZIONE MUSICALE 
'IELLE SEGUENTE LISTA DI CHIAVI 
E SEGNATURE SI CHIAVI, 

1. SO MAGGIORE.'LA-DIESIS MIHGRE-0 DIESIS 

2. RE-BEMOLLE MAGGIORE/SI MINORE-2 DIESIS 

0. MI-BEMOLLE MAGGIORE!.'DO-BEMOLLE MINORE-7 BEMOLLE 
RE MAGGIORE.'SI-DIESIS MINORE-5 DIESIS 

4. MI MAGOIDRE.'DO MIN0RE-NES3UN DIESIS G BEMOLLE 

5. FA-BEMOLLE MAGGIORE,'RE-BEMOLLE MINORE-5 BEMOLLE 
MI DIESIS MAGGIORE,'DÒ-DIESIS MINORE-5 DIESIS 

S. "fi MAGGIORE,'RE MINORE-2 DIESIS 

7. SOL-BEMOLLE MAGGIORE,'MI MINORE-O BEMOLLE 

3. SOL MAGGIORE.'MI-DIESIS MINORE-4 DIESIS 
0. LA MAGGIORE,'FA MINORE-! BEMOLLE 

!0. SI-BEMOLLE,"SOL^-BEMOLLE MINORE-S BEMOLLE 

_A-BIE3IS MAGGIORE.'FA-DIESIS MINORE-6 DIESIS 

11. SI MAGGIORE.'SOL MINORE-! DIESIS 

12. DC-BEMOLLE MAGGIORE,'LA MINORE-4 BEMOLLE 
INTRODUCI IL NUMERO DELLA CHIAVE l'A CUI 
STAI TRASPONENDO, QUINDI IL NUMERO DELLA 
CHIAVE IN CUI STAI TRASPONENDO 


183 





T3V0l.fi di TRASPOSI ZI OHE 


TRASPOSTO 

DA 

RE-BEMOLLE,'DC-DI ESI S 

RE imi-bemolle) 

MI IRE-DIESIS) 

-3-BEMOLLE.'.'II -DIESIS 


SOL-BEMOLLE. Tfi-DIESIS 

sol : la -bemolle 
LA ISOL-DIESIS) 

SI-BEMOLLE,'LR-LTESIS¬ 
SO-BEMOLLE, 'SI -DIESIS 


TRASPOSTO 

SI -BEMOLLE. 'LA-DIESIS 
DÒ-BEMOLLE, 'SI -DI ESI 3 
DO 

RE-BEMOLLE/DO-DIESIS 
RE IMI-BEMOLLE) 

MI IRE-DIESIS) 
-R-BEMOLLE.'MI-DIESIS 
FA 

SOL-BEMOLLE,'FA-DIESIS 
SOL (LA-BEMOLLE) 

LS I SOL-DIESIS) 


VUOI UN'ALTRA TRASPOSIZIONE? IS-'N) 


Problemi pratici 

1. In chiave G i primi accordi di: “My Country Tis ofThee” sono: G, E m , C, 
D, G, E m , C, G, B 7 , E m . Se li trasportate in chiave E come saranno questi accordi? 

Risposta: E, C*“, A, B, E, C* m , A, E, G* 7 , C' m . 

2. Il quinto concerto Brandeburghese di Bach scritto in D maggiore, inizia 
così: D, D, F* , F* , A, A, D, D, C* , D, C' , B, A, G, F* , E. Se fosse scritto inC 
maggiore che note avremmo? 

Risposta: C, C, E, E, G, G, C, C, B, C, B, A, G, F, E, D. 


Listlng del programma 

5 PRIHT "TRASPOSIZIONE MUSICALE" 

10 DIM R$(12> 

1? REM LETTURA DELLA TAVOLA DELLE NOTE 
20 POR 1=1 TO 12 
30 READ A»(I> 

40 NEXT I 

50 DATA "DO".• “RE-BEMOLLE/DO-DIESIS", “RE IMI-BEMOLLE)", "MI (RE-DIESIS)" 

60 DATA "FA-BEMOLLE/MI-DIESIS","FA","SOL-BEMOLLE/FA-DIESIS","SOL (LA-BEMOLLE)" 
70 DATA "LA (SOL-DIESIS)","SI-BEMOLLE,’LA-BIESIS","SI","DO-BEMOLLE,'SI-DIESIS" 
280 PRINT "NELLE SEGUENTE LISTA DI CHIAVI" 

2S0 PRINT "E SEGNATURE DI CHIAVI," 

300 PRINT "1. DO MAGGIORE/LA-DIESIS MINORE-3 DIESIS" 
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310 PRINT "2. RE-BEMOLLE MAGGIORE/SI MIHORE-2 DIESIS" 

320 PRIHT "3. MI-BEMOLLE MAGGIORE.'DO-BEMOLLE MINORE-? BEMOLLE" 
325 PRIHT " RE MAGGIORE/SI-DIESIS MIHORE-5 DIESIS" 

330 PRIHT "4. MI MAGGIORE/DO MINORE-NESSUN DIESIS 0 BEMOLLE" 
340 PRIHT "5. FA-BEMOLLE MAGGIORE/RE-BEMOLLE MINORE-5 BEMOLLE" 
345 PRIHT " MI-DIESIS MAGGIORE/DO-DIESIS MINORE-5 DIESIS" 

350 PRIHT "6. FA MAGGIORE/RE MIHORE-2 DIESIS" 

360 PRIHT "7. SOL-BEMOLLE MAGGIORE/MI MIHORE-3 BEMOLLE" 

370 PRINT ”8. SOL MAGGIORE/MI-DIESIS MIMORE-4 DIESIS" 

380 PRIHT "9. LA MAGGIORE/FA MIHORE-1 BEMOLLE" 

390 PRINT “10. SI-BEMOLLE/SOL-BEMOLLE MINORE-6 BEMOLLE" 

395 PRINT " LH-filESIS MAGGIORE.'FA-DIESIS MINORE-6 DIESIS" 

400 PRINT "11. SI MAGGIORE/SOL MIHORE-1 DIESIS" 

410 PRIHT "12. DO-BEMOLLE MAGGIORE/LA MIHORE-4 BEMOLLE" 

450 PRIHT "INTRODUCI IL NUMERO DELLA CHIAVE DA CUI" 

460 PRINT "STAI TRASPONENDO.. QUINDI IL NUMERO DELLA" 

470 PRINT "CHIAVE IN CUI STAI TRASPONENDO" 

430 INPUT A,B 
500 PRINT 

510 IF A>12 THEN 620 

520 IF BM2 THEN 620 

530 IF AC! THEN 620 

540 IF BCl THEN 620 

610 IF AOB THEN 710 

620 PRINT"ERRORE. REINTRODUCI. PREGO" 

630 GOTO 450 

710 PRINT " TAVOLA DI TRASPOSIZIONE" 

720 PRINT " TRASPOSTO": TRE(20);"TRASPOSTO" 

730 PRINT TAB<4!> ; "DA" ; TAB<24) ; "A” 

740 P=8 

749 REM STAMPA LA TAVOLA 

750 FOR 1=1 TO 12 

755 D=B-A+I-SGN(INTC <B-A+I>?12>)*12 
75? IF D>0 THEN 760 
758 D=12 

760 PRINT TAB(1>;A$(I);TAB<24>. AT<D) 

770 P=P+1 

730 IF POI NT <P/3)#3 THEN 810 

790 PRINT 

S00 P=R 

810 NEXT I 

320 PRINT 

330 PRINT “VUOI UN'ALTRA TRASPOSIZIONE? <S/NV 
340 INPUT V* 

S50 IF V*="3" THEN 280 
360 END 
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APPENDICE 


In questi anni si è tentato di stabilire uno standard per il BASIC. Nei fatti, tale 
standard non è molto diffuso, e questa situazione sembra destinata a continuare. 
Nonostante ciò noi abbiamo costantemente usato un dialetto Basic generalizzato, 
compatibile con molti computer. Potrà capitare che alcune delle convenzioni da 
noi adottate non vadano bene sul vostro computer. Questa appendice descrive 
alcuni cambiamenti che possono essere apportati ai programmi, in relazione ai 
problemi di compatibilità del BASIC. Se trovate dei problemi che non sono qui 
descritti, dovrete usare i vostri mezzi ed il vostro ingegno per risolverli. 

Nella appendice troverete anche dei suggerimenti su possibili cambiamenti 
da apportare ai programmi, in modo da utilizzare diverse uscite. 

Viene data una spiegazione generale sui cambiamenti specifici da apportare 
al listing, ed inoltre tali cambiamenti vengono illustrati (dove ciò è possibile) con 
esempi presi dal libro. Potrete, in tal modo, decidere se apportare i cambiamenti 
suggeriti, e se apportarli su uno o su tutti i programmi. Per effettuare questi 
cambiamenti bisogna avere una certa conoscenza della programmazione BASIC. 


Pausa con schermo pieno 

Molti programmi hanno un numero di linee di uscita più grande di quello 
appropriato per uno schermo tipico. Questo fa si che le prime linee d’uscita 
scorrano velocemente ed escano dallo schermo prima che si abbia il tempo di 
vedere quello che vi è contenuto. Su molti computer, si può bloccare temporanea¬ 
mente il display premendo un tasto o una combinazione di tasti. In tal modo si ha 
il tempo di vedere e registrare ogni lista d’uscita. Successivamente premendo il 
tasto speciale o la combinazione di tasti il computer si pone nuovamente in 
funzione. Possiamo così far apparire più uscite. Si può bloccare il display più 
volte, in modo da poter registrare tutte le uscite. Il numero delle volte in cui va 
bloccata il listing, non dipende solo dal tipo di programma che si sta eseguendo, 
ma anche dalla natura del problema che il programma coinvolge. Per esempio, in 
CBasic premendo simultaneamente il CONTROL ed il tasto S induciamo questo 
stato di sospensione. Sul Radio Shack TRS-80, otteniamo la stessa cosa premendo 
simultaneamente lo SHIFT ed il tasto @. 

Come alternativa, si può modificare il programma in modo che esso si fermi 
in uno o più punti durante la fase delle uscite, in attesa di un segno che gli dica di 
continuare. Per ottenere ciò aggiungete il seguente sottoprogramma, e richiama¬ 
telo ad intervalli adatti, durante la fase di uscita: 
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5799 REM ASPETTA UN SEGNO DALL'OPERATORE 

5800 PRINT "INTRODUCI ‘C’ PER CONTINUARE” 
5810 INPUT W$ 

5820 RETURN 


Questa tecnica è stata usata nel programma del REDDITO MEDIO. Nei 
programmi in cui alcune, o tutte le uscite avvengono all’interno di un loop (cioè 
fra gli stati FOR e NEXT), dovrete, semplicemente, porre il richiamo a questo 
sottoprogramma nell’appropriato stato PRINT, così come è stato fatto nelle linee 
1890, 2010 e 2110 del programma del REDDITO MEDIO. Nel caso di pausa con 
schermo pieno, utilizzate il sottoprogramma seguente, esso conta il numero di 
linee mostrate dal momento dell’ultima pausa. Ogni volta che chiamate questo 
sottoprogramma, esso incrementa un contatore, e controlla se il nuovo conto 
supera le dimensioni del display. In questo caso, si blocca fino al segno dell’opera¬ 
tore. Nel caso in cui il conto non superi le dimensioni del display esso fa ritorno al 
punto richiesto del programma. Potete inserire un richiamo a questo sottopro¬ 
gramma immediatamente dopo ogni stato PRINT che causa una linea di uscita 
(cioè uno stato PRINT che non termini con un comma o una semicolonna). 


5797 REM SOTTOPROGRAMMA CONTROLLO CONTO LINEE 

5798 REM ATTENDI IL SEGNO SE IL DISPLAY È PIENO 

5799 REM PRIMA INCREMENTA E CONTROLLA IL CONTO DELLE LINEE 

5800 L9=L9+1 

5810 IF L9<22 THEN 5850 

5819 REM LO SCHERMO È PIENO - 

5820 PRINT “INTRODUCI 'C' PER CONTINUARE"; 

5830 INPUT WS 

5839 REM RIPONI IL CONTO DELLE LINEE 

5840 L9=0 
5850 RETURN 


Serie di variabili, funzioni e concatenazioni 


I programmi che utilizzano semplici (non ordinate) serie di variabili, non si 
riescono a dimensionare in uno stato DIM, come succede normalmente. Se il 
vostro computer richiede il dimensionamento in DIM, dovrete aggiungere uno 
stato DIM all’inizio di ogni programma in cui usate tale serie, in questo stato 
aggiuntivo dovrete riportare le dimensioni della serie di variabili. In questo libro 
l’unico programma che fa uso di una grossa serie è quello del BILANCIO 
FAMILIARE, in tale programma compare l’ordine serie Cl$. La sua dimensione 
è data nella linea 20, che viene riportata qui sotto, esso contiene 5 elementi: 


20 DIM D(12), 10(3,2), CO(4,3), C1(5,5), C1$(5), EO(25,2) 
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Se il vostro BASIC ha delle regole di sintassi diverse per il dimensionamento di 
ordini serie, dovete sostituire la linea 20 del BILANCIO in accordo con quelle che 
sono le vostre regole. 

Alcuni programmi usano la funzione serie MID$, essa specifica parti di una 
serie. Il vostro BASIC può utilizzare nomi diversi per questa funzione, ad esempio 
SEG$. In questo caso dovrete sostituire ogni apparizione di MID$ col nome 
corrispondente utilizzato dal vostro BASIC. 

Il più comune operatore di concatenazione BASIC è il segno più (+). Se il 
vostro BASIC usa un segno diverso come &, dovrete sostituire ogni comparsa del 
segno più - dove esso è usato come operatore di concatenazione - con il corretto 
operatore. State attenti a non sostituire il segno più usato come addizione aritme¬ 
tica con l’operatore di concatenazione. 


Stampaggio uscite 

Guardare le uscite del programma sullo schermo è una cosa accettabile se si 
utilizza un programma per un lavoro sperimentale o di controllo. Ma prima o poi, 
ci si troverà di fronte al problema di utilizzare continuamente le uscite del 
programma, in questo caso esse devono essere registrate. La soluzione, natural¬ 
mente, è quella di stampare direttamente le uscite. La procedura per fare questo, 
varia da un computer all’altro. In alcuni casi basta premere un tasto o una 
combinazione di tasti perchè le uscite appaiano sia sullo schermo che su una 
stampante simultanea. In altri casi si ottiene lo stesso effetto (oppure le uscite 
vengono solo stampate) introducendo una sequenza di comandi prima di eseguire 
il programma. 

In molti casi, tuttavia, bisogna modificare ogni stato PRINT nel programma, 
al fine di ottenere l’esecuzione delle uscite come stampa. La procedura per far 
questo è varia, consultate il vostro manuale Basic per le istruzioni specifiche. 


Sostituzione degli stati DEF FN 

Molti BASIC permettono di definire una singola funzione di linea con uno 
stato DEF FN. Si richiamano tali funzioni con uno stato FN. Un esempio di ciò si 
ha sulle linee 20 e 200 del programma VALORE FUTURO DI UN INVESTI¬ 
MENTO, tali linee sono qui riportate. Lo scopo di queste linee è quello di 
arrotondare i valori numerici a 100: 

20 DEF FNA(X)=INT(X • 100+0,5)/100 
200 T=T+FNA(C(J)-(1+R)!(N-J)) 

Si possono sostituire tali definizioni di funzioni con un regolare sottoprogram- 
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ma. Lo stato DEF FN diventa il sottoprogramma, e può essere posto fuori dalle 
linee di esecuzione. In ogni punto che coinvolge la funzione con uno stato FN, si 
dovrà inserire un richiamo al nuovo sottoprogramma. Ad esempio nel caso del 
VALORE FUTURO DI UN INVESTIMENTO, si dovrà togliere la riga 20 e 
sostituirla con il seguente sottoprogramma: 

1000 X=INT(X • 100+0,5)/100 
1010 RETURN 

si dovrà cambiare anche la linea 200 nel modo seguente, ed inoltre, aggiungere 
nuove linee di richiamo al sottoprogramma: 

200 X=C(J) • (1+R)!(N-J) 

203 GOSUB 1000 
205 TzzT+X 

Cambiamento della precisione dei valori arrotondati 

Molti programmi usano definire delle funzioni di arrotondamento dei valori 
numerici, precisando il numero di posti decimali. Per esempio, il programma del 
VALORE NETTO PRESENTE, ha una funzione così fatta sulla linea 20: 

20 DEF FNA (X) = INT (X ■ 100 + 0,5)/100 

Questa funzione arrotondata alla successiva centinaia, quindi il calcolo del VA¬ 
LORE NETTO PRESENTE è fatto sulle centinaia. Il valore 100 che appare nello 
stato DEF FN sopra scritto, determina quante decine ci saranno (2 in questo 
caso). Per cambiare il numero delle decine, bisogna sostituire ogni apparizione del 
valore 100, o del valore che è specificato nel programma che state considerando. 
Per esempio la seguente sostituzione fatta sulla linea 20, arrotonda all’unità: 


20 DEF FNA (X) = INT (X • 1 + 0,5)/1 


o più semplicemente: 


20 DEF FNA(X)=rlNT(X+0,5) 


Frequenza dell’Interesse composto 

Molti dei programmi di questo libro basano il loro calcolo sull’interesse 
composto annualmente. Ciò è accettabile in molti casi. Ma vi potrà capitare di 
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dover calcolare l’interesse composto con una frequenza maggiore di quella annua¬ 
le. Forse la via più semplice è quella di convertire la quota di interesse annuale 
nelle effettive quote di interesse, basandosi sul numero di periodi composti 
nell’anno. Quindi, introducete questa quota effettiva quando il programma lo 
richiede. La formula generale è: 



dove: E è la quota effettiva di interesse, I è la quota di interesse annuale espressa 
come funzione decimale, N è il numero di periodi composti per anno e Y è il 
numero degli anni. La formula che da la composizione continua è: 


dove: E è la quota effettiva di interesse e è 2,718281828... (base dei logaritmi 
naturali), 1 è la quota nominale d’interesse e Y è il numero di anni. Naturalmente, 
bisognerà cambiare il programma in modo che accetti la quota nominale di 
interesse e la converta automaticamente nella quota effettiva di interesse. Il 
programma chiederà il numero di periodi composti per anno, ciò al fine di poter 
effettuare la conversione. Come alternativamente si può lasciare il calcolo dell’in¬ 
teresse composto nel programma così che esso ve lo fornisce alla frequenza 
desiderata. Per esempio nel programma del VALORE FUTURO DI UN INVE¬ 
STIMENTO la linea 240 può essere così sostituita al fine di contare il valore 
futuro dell’investimento con una crescita di quota R, composta continuamente... 


240 T = T+FNA(C(J) EXP(R (N-J))) 
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IV -* 



Quante volte avete provato a scrivere un programma. Sapete 


che il programma che vi occorre è stato indubbiamente già 
scritto da migliaia di persone prima di voi? Ideato allo scopo 
di ridurre il vostro tempo di programmazione, il libro è una 
raccolta di programmi di'tipo finanziario, matematico, scienti¬ 
fico e di decisioni manageriali. Ogni programma, orientato 
alla risoluzione di un problema pratico, è presentato con una 
breve descrizione iniziale, un campione di esecuzione, il li- 
stìng Basic, nonché, per molti, una sezione in cui sono rac¬ 
colte possibili variazioni per rendere il programma stesso più. 
rispondente alle necessità personali. I programmi sono stati 
scritti in un Basic generale, il che li rende, per la maggior 
parte, direttamente utilizzabili, senza alcun cambiamento, su 
molti mio/ocòmputer, e sono stati provati usando varie ver¬ 
sioni di Basic (Basic Applesoft, Atari, Commodore, CBasic, 
Digital Equipment Corporation’s, Basic-plus, TRS-80, Texas 
Instruments e Wang Laboratories). Oltre a risolvere molti vo¬ 
stri problemi, vedrete.che l’uso di uri personal computer non 
deve essere ridótto arsolo divertimento ma trova sempre più 
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